TCP PHP und nu auch noch Delphi

[Ultimator]

Delphi-Quellcode:

procedure read(Sender : TObject; Socket : TCustomWinSocket); 
begin 
  Memo1.Lines.Add({sock.}Socket.ReceiveText); //sock. braucht man nicht, man mekommt den Socket als Parameter übergeben ;)
end;