clientsocket.open dauert zu lang?

[Bobator]

Delphi-Quellcode:

procedure Tfmain.SpeedButton1Click(Sender: TObject); 
begin 
  if not ClientSocket.Active then begin 
    ClientSocket.Active:=true; // damit müsste es gehen! vorher die address bei den propertys eingeben!
    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;