Программа отлично работает при событии Button1Click, и отказывается работать в FormCreate

[xTANATOSx]

Помогите
Как вийти из ситуации?
Процедура запуска другой програми отлично работает при собитии
Button1Click,и ОТКАЗИВАЕТСА работать в FormCreate.
Вот код
(Работающий)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,shellapi;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function executefile(const
filename,params,defaultdir:string;s howcmd:integer):thandle;
var zfilename,zparams,zdir:array[0..79] of char;
begin
result:=shellexecute(application.Ma inForm.Handle,nil,strpcopy(zfilenam e,filename
),strpcopy(zparams,params),strpcopy (zdir,defaultdir),showcmd);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
w,e:string;
begin
w:=edit1.Text;
executefile(w,'','',sw_show);
end;

end.

[Shuraken]

Все логично. Обработчик кнопки никак не сможет запуститься раньше показа формы. А если ты во время Create формы хочешь ее сразу и показать, то естественно, что система тебе покажет шиш. Форме надо создаться, активироваться, отрисоваться, изменить размеры, снова отрисоваться и только после этого показаться. Так что лучше свой код помести не в OnCreate, а в OnShow формы.

[xTANATOSx]

УРА!!!!!
Shuraken СПАСИБО!

[Stilet]

Сообщение от Shuraken

Так что лучше свой код помести не в OnCreate, а в OnShow формы.

Вообще-то не обязательно помещять код из кнопки, можно все го лишь его в нужном событии запустить :

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('adas');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Click;
end;

end.