TClient & TServer socket verbindung

[inherited]

Delphi-Quellcode:

repeat
  try
    tcpclient1.Connect;
  except
    inc(TriesToConnect);
  end;
until tcpclient1.Connected;

Bedenke aber, dass das nicht unbedingt die beste lösung ist, so wie du das machen willst!