procedure TForm1.FormCreate(Sender: TObject);
begin
if SameText('hello', ParamStr(1)) then ShowMessage('hello');
end;
//...................
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
{ TODO : 这里判断也可以 }
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.