Сокеты в Delphi

[Пепел Феникса]

не знаю как в TCP клиенте, но в простых сокетах есть собьытия что подключился ктото(или что я подключился)
попробуйте поискать аналогию и проверить наступают ли они

[god110]

Делал на TServerSocket и TClientSocket. У них есть событие при соединении, отсоединении, ошибки и др. Когда конектился к серверу происходило событие соединения в котором писал Label1.caption:='соединен'; Надпись появлялась и не пропадала хотя при этом на клиенте была ошибка.

[Пепел Феникса]

как я делал имитацию сервера(тупую но рабочую)
на форму мемо и серверсокет
у него порт=80

в событии OnClientRead пишу:

 Socket.ReceiveText;//прочесть надо
 Socket.SendText(Memo1.Lines.Text);
 Socket.Close;

ну и к этомку можно клиент взять...допустим такой
на форме два мемо и клиент сокет(сейчас locahost это хост и порт=80)
у него в событии OnConnect

 Socket.SendText(Memo1.Lines.Text);

и в событии OnRead

 Memo2.Lines.Text:=Socket.ReceiveText;

подключаемся допустим при создании формы.

вот такие пироги...(Зы, тут не все...но наводку дал)

могу потом кинуть примеры если надо

[god110]

Буду благодарен если скинешь примеры. С меня +