Executável com parâmetros

Procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
for I := 1 to ParamCount do begin
if ParamStr(I) = '/sai' then
Application.Terminate;
end; // Outro exemplo

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to paramcount do showmessage(ParamStr(i));
end;
end.