1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.create(sender: TObject);
var
 i: Integer;
 str: String;
begin
  i := 1;
  str := '';
  while i <= ParamCount do begin
    str := str+ParamStr(i)+' ';
    inc(i);
  end;
  str := copy(str,0,length(str)-1);
  //in str sind jetzt die Parameter
end;