Не активируется TclientSocket

[Joker_vad]

Здравствуйте проблема такая, не активируется сокет...

procedure TForm3.Button1Click(Sender: TObject);
var f:textFile;
st:string;
begin
AssignFile(f,'set.ini'); {ïðèñîåäèíÿåìñÿ ê ôàéëó ñ íàñòðîéêàìè}
{$I-}
Reset(f);{îòêðûâàåì ôàéë äëÿ ïåðåçàïèñè}
{$I+}
if IOResult<>0 then Exit;{åñëè îøèáêà òî âûõîäèì}
if pos('>',edit1.Text)<>0 then
ShowMessage('Òîëüêî áóêâû è öèôðû')
else
begin
readln(f,st);
delete(st,1,5);
form1.ClientSocket1.Port:=StrToInt(st);
readln(f,st);
delete(st,1,6);
form1.ClientSocket1.Address:=st;
readln(f,st);
delete(st,1,5);
Form1.ClientSocket1.Host:=st;
closeFile(f);

Form1.ClientSocket1.Active:=true;
Form1.ClientSocket1.Socket.SendText('2'+Edit1.Text+'>'+Edit2.Text);
form1.Label3.Caption:=Edit1.Text;
form3.close;

end
end;

Сам сокет находится на другой форме. Если нажать на вход еще раз то он чудесным образом активируется, т.е происходит опять открытие формы регистрации(их всего три, регистрация, основная и изменения настроек), после чего сразу он переходит в активное состояние. Прошу помощи

[xoodoo]

В неблокирующем режиме работы TClientSocket'а (этот режим установлен по умолчанию) не следует да и попросту бессмысленно пыжиться передавать-принимать данные раньше чем сокет возбудит событие OnConnect.

[Joker_vad]

а что мне сделать чтобы заработало. Не могу понять как вызвать этот onconnect

[raxp]

...по методам компонента пошарьтесь, там оно есть, двойной клик мышой и создали.

[Joker_vad]

нда... чет я совсем туплю... свершилось, всем спасибо за помощь и за терпение