was bezweckst du damit?
dieser Code ergibt keinen Sinn...
ich entferne gleich mal die redundanzen und strukturiere den COde ein wenig, woraus sich dieser CODE ergibt:
Delphi-Quellcode:
var CON: TCLientSocket;
{deklarations-teil}
Procedure TForm1.Create();
begin
con:=TClientSocket.Create();
con.Port := 2323;
end;
procedure Connect;
begin
with con begin
Host := ListBox1.Items[Form1.ListBox1.ItemIndex];
active := true;
end;
end;
procedure Disconnect;
begin
con.close;
con.host:=ListBox1.Items[Form1.ListBox1.ItemIndex];
end;
procedure TForm1.ButtonClick(Sender: TObject);
begin
if Sender = Button1 then Con.Socket.SendText('D:\test\Wms.exe.lnk');
if Sender = Button4 then
begin
Con.Socket.SendText('D:\test\iltis_start.exe.lnk');
Button5.Enabled := true;
end;
if Sender = Button5 then Con.Socket.SendText('IltisWMS');
if Sender = Button3 then Connect;
if Sender = Button2 then Disconnect;
end;
Habe den CODE nicht getestet, sondern frei schnautze geschrieben, da ich dir nur den weg weisen wollte und nicht deine arbeit machen 
dadurch sparste ne extra Bibliothek und schreibarbeit. außerdem ist dieser code ein wenig übersichtlicher... egal was dieser code bezweckt, dein weg ist umständlich...
MorPH