Так может надо как то по-другому сделать, чтобы при появлении сервера клиент сразу же к нему подключался??? Пока у меня сделано это так:
Код:
procedure TForm1.TimerConnectionTimer(Sender: TObject);
begin
if ClientSocket1.Active=false then
try
ClientSocket1.Active:=true;
except
ShowMessage('no connection');
end;
end;