[fofka]

PHP код:

procedure TForm1.CS1Read(Sender: TObject;Socket: TCustomWinSocket);
 begin
  s := Socket.ReceiveText;
end;