[alexnov]

Так может надо как то по-другому сделать, чтобы при появлении сервера клиент сразу же к нему подключался??? Пока у меня сделано это так:

Код:

procedure TForm1.TimerConnectionTimer(Sender: TObject);
begin
if ClientSocket1.Active=false then
try
  ClientSocket1.Active:=true;
except
 ShowMessage('no connection');
end;

  end;