Error 10049 kann nicht connecten

[Russel-Athletic2]

Ich hab das mal ebend verändert und nun sagt er mir, 10053 errorcode und beim quasi, dass er nicht empfangen konnte.
Diese wird wohl dabei auch noch wichtig sein

Delphi-Quellcode:

procedure Tform1.serversockClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
  var rec1:iprec;
  begin
  serversock.Socket.ReceiveBuf(rec1,sizeof(rec1));
  showmessage('hallo');
end;