clientsocket.open dauert zu lang?

[lkz633]

Hallo,

ich habe folgenden code:

Code:

procedure Tfmain.SpeedButton1Click(Sender: TObject);
begin
  if not ClientSocket.Active then begin
    ClientSocket.Open;
    ListBox1.Lines.Add(DateTimeToStr(now)+': '+'Anforderung an Server gesendet');
    clientsocket.Socket.SendText(edt_user.Text+','+edt_password.Text);
  end
  else begin
    ListBox1.Lines.Add(DateTimeToStr(now)+': '+'Anforderung an Server gesendet');
    clientsocket.Socket.SendText(edt_user.Text+','+edt_password.Text);
  end;
end;

Ich habe das Problem, das dass aller erste Mal der Text nie beim Server ankommt, d.h der text der direkt nach dem Open gesendet wird, danach klappt diese Funktion. Füge ich das Open z.B im Formcreate ein, klappt es einwandfrei.

Ich kann die Verbindung aber erst dann aufbauen und muss dann auch direkt den String senden. Wie bekomme ich das hin?
Auch ein eingebautetes Sleep hat nicht geholfen

Irgendwelche Ideen oder Lösungen?

Dank und Gruss
lkz633