ClientSocket: Open 2mal ausführen?

[Pseudemys Nelsoni]

hoi,

ich hab die clientsocket kompo jetzt schon des öfteren benutzt, bei diesem mal sieht mein code z.b so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Clientsocket1.Open;
  with Clientsocket1.Socket do
  begin
    SendText('CVERS 11015 4610' + #13#10);
    SendText('PASS supersecret' + #13#10);
    SendText('NICK silentx' + #13#10);
    SendText('apgar WjHsUUs 0' + #13#10);
    SendText('SERIAL 0' + #13#10);
    SendText('USER UserName HostName irc.westwood.com :RealName' + #13#10);
    SendText('verchk 32514 720911' + #13#10);
  end;
end;

wenn ich nun Button1 drücke passiert garnix, beim 2mal gehts dann ganz normal, wenn ich zur designzeit active auf true stelle, dann funktioniert das ganze schon beim 1sten klick. Aber ich will sie ja erst active haben sobald ich den button drücke... also wieso muss ich da 2mal drücken?
das muss jeder der damit schonmal gearbeitet hat bemerkt haben, das is nämlich egal welcher server, das resultat is immer das gleiche, erst beim 2mal funzt es...

[Sharky]

Hai Pseudemys,

ich denke mal das nach dem Open die Verbindung zum "Server" noch nicht schnellgenaug aufgebaut ist und dein SendText im Nirvana landet.

BTW: Ich schiebe die Frage mal nach Internet/IP/LAN.

[Pseudemys Nelsoni]

hast recht, im OnConnect funzt es, danke