procedure TForm1.csClienteRead(Sender: TObject; Socket:  TCustomWinSocket);
var
 data: String;
begin
 data := Socket.ReceiveText;
 memoResults.Lines.Add(data);
end;