ClientSocket - передача данных одной процедурой

[Jetro]

Столкнулся с проблемой - хочется сделать так чтобы программа не держала постоянно занятый порт, а делала следующее:
Активировала ClientSocket - передала данные - отключила ClientSocket.

Пример. Цепляю на кнопку следующий код:

procedure TForm1.Button1Click(Sender: TObject);
 var
   abc1, abc2 : string;
begin
   Clientsocket1.Active := True;
   abc1 := edit1.Text;
   abc2 := edit2.Text;
   Clientsocket1.Socket.SendText(abc1 + ',' + abc2);
   Clientsocket1.Active := False;
end;

Но в итоге получается следующее - первое нажатие кнопки: Clientsocket активируется, цепляется к ServerSocket, но данных не передает, и не отключается. Второе нажатие кнопки: данные передались, Clientsocket отключился.
Почему все это не делается одним нажатием? Где я накосячил, чего не учел?

ЗЫ. Прошу сильно не пинать - с сокетами работать еще не приходилось, да и в знании Delphi я себя профессионалом назвать не могу.

[Jetro]

Всем спасибо за внимание. Разобрался сам.

[Stilet]

Почему все это не делается одним нажатием?

Скорее всего потому что данные посылаются до того как сокет открылся полностью.
Вот если бы ты подождал пока сокет откроется и сработает его событие OnConnect то тогда и передавай данные - получишь нормальную передачу, а ты OnConnect не дождался.

И между прочим рассказал бы как ты решил задачу - другим тоже интересно понимаешь ли...

[Jetro]

Сообщение от Stilet

Вот если бы ты подождал пока сокет откроется и сработает его событие OnConnect то тогда и передавай данные - получишь нормальную передачу, а ты OnConnect не дождался.

Так и решил - сделал задержку. Вцепил таймер, поставил ожидать 10 мс., и если сокет стартанул, то данные ушли, если нет, то ждем еще 10 мс. и пытаемся еще раз.