procedure TForm1.Form1FormCreate(Sender: TObject);
begin
　Button1 := TButton.Create(Self);
end;
ってかんじー