procedure TForm1.FormShow(Sender: TObject);
var
parameter: string;
begin
parameter := ParamStr(1);
if parameter = '/message' then
begin
ShowMessage('Parameter /message.');
end;
if parameter = '' then
begin
ShowMessage('No parameter.');
end;
end;