Ich habe mir das alles nochmal genau durchgelsen (Delphi Hilfe usw) und das draus gemacht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamStr(1) = 'A' then
begin
ShowMessage('Anzeigen: ' + ParamStr(1));
end else
if ParamStr(1) = 'B' then
begin
ShowMessage('Anzeigen: ' + ParamStr(1));
end;
end;