strings sending/receiving

hi!
this is my procedure:
procedure TfrmMain.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sIn : string;
buf : string;
begin
sIn := Socket.ReceiveText;
AddLog('Leggi in: ' + sIn);
// Forward it onward
sockForward.Socket.SendText(sIn);
buf := sockForward.Socket.ReceiveText;
ServerSocket.Socket.SendText(buf);
end;

I get the error:"a request to send or receive data was disallowed because the socket is not connected and (when sending on a datagram socket using a sendto call) no address was supplied (10057) with the Api 'send'"
why???
can you help me?? thank you!! Christian

I bet you haven't connected sockForward to the other end. Seriously though, let me give you a good solid piece of advice -- there is a very good debugger that comes integrated with Delphi, learn to use it. It will show you exactly which line is giving you the error message. Posting a code snippet here is no use, if you won't tell us where you suspect the problem is. Either post the full code or at least try to narrow down the problem to within a line or two.