Indy Record sendeproblem

[Bahamutsfire]

Hallo Leute ich bins nochmal,

ich bin nun zu einen seltsamen Problem gekommen. Die verbindung zum Server steht allerdings kann der Server mit einer Indy-client-komponente antworten senden.
Beim Connect bekomm ich einen Sockel #10049 fehler.

Delphi-Quellcode:

procedure antwortsendenId(client: TidTcpclient; antwort:TIdentifikationAntwort; ip:string);
begin
  with client do
  begin
    Port:= 6667;
    BoundIP:= ip;
    Connect;
    try
      client.WriteSmallInt(3);
      client.WriteBuffer(antwort,sizeof(TIdentifikationAntwort));
    finally
       If(antwort.userid = 0) or (antwort.nicvergeben = true) then
        Disconnect;
    end;
  end;
end;

Dazu ist zu sagen, das der client(TidTcpclient) in einen anderen Unterprogramm zugewiesen wurde.

Desweiteren finde ich es sehr seltsam, das ich bei meinen Client.exe die Client-Komponenten mit einem activate setzten kann, beim Server nicht:

Delphi-Quellcode:

 
 with Formhintergrund.IdTCPClient1   do
    begin
      Activate;
      Host:= EditIPaddresse.Text;
      Port:= 6666;
    end;
....

Hoffe sirius oder andere können mir helfen

mfg
Lukas