Events в ServerSocket и ClientSocket

[LiFeStyle]

Добрового времени суток!
Искал вроде ничего пожего не нашёл, у меня вот такая проблемка делаю клиент-серверную архитектуру когда связываюсь с двумя прогами(соответственно клиент и сервер) нужно сделать событие на клиенте OnConnect чтобы выводилось там подключено и OnDisconect соответсвенно не подключено так вот когда всё прописываю, проект не компилируется т.е. нажимаю форма грузится и сразу же вылетает никаких ошибок ничего код следующий :

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label1.Font.Color:=clgreen;
Label1.Caption:='Связь усстановлена!';
end;

[OrdJONY]

Может быть просто коннетка с сервером нет или на сервере показывает что КЛиентКонект?

[D-mon]

Я попробовал. У меня всё работает. Может ты не указал порт в клиенте или ещё что не заполнил на сервере или клиенте .
Может компонент криво стал??? Пробовал на Delphi2006...

[LiFeStyle]

Спасибо разобрался)