Erweitete Startfunktion

[EarthQuaker]

ok habe es jetzt wie folgt gelöst

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  begin
  for i := 1 to ParamCount do
    if LowerCase(ParamStr(i)) = 'beep' then
      Label1.Caption := 'test'
    else if LowerCase(ParamStr(i)) = 'exit' then
      Label1.Caption := 'hmmmmmmmmmmmmmmmmmmmmmmmmm';
  end;

sollte damit ja jetzt auch funktinieren...

PS. die oben genannte funktion habe ich aus der Delphi Hilfe erhalten...