1:
2:
3:

uses ... Shellapi;

shellexecute(1,'open',pchar('c:\quake3.exe'),pchar('-connect 111.222.333.444:1234 -passwort 12341234'),pchar('c:\'),1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure fake(x:Integer);
var
xxy: string;
zzz: string;
begin
if form1.Edit1.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 1 gemacht!')
else if form1.Edit3.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 2 gemacht!')
else if form1.Edit4.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 3 gemacht!')
else if form1.Edit5.Text = '' then showmessage('Sie haben einen fehler bei der Eingabe der IP in Feld 4 gemacht!')
else
  begin

   showmessage('Sie werden sofort zu '+form1.Edit1.Text + '.'+ form1.Edit3.text+ '.'+ form1.Edit4.text+ '.'+ form1.Edit5.text+ ':'+ form1.Edit2.text+' verbunden. Viel Spass');
   if form1.edit6.text = '' then
   zzz:= ''
   else
   zzz:= ' +password '+form1.Edit6.Text;
   xxy:= form1.Edit7.Text+' +connect '+form1.Edit1.Text +'.'+ form1.Edit3.text+'.'+ form1.Edit4.text+'.'+ form1.Edit5.text+':'+ form1.Edit2.text+zzz;
   WinExec(xxy);
  end;
end;					

1:

WinExec(pchar(xxy),sw_show);