[[cHackAll]]

Código Delphi [-]
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar; var DataLen: Integer);
begin
 MessageBox(0, Buf, nil, 0); // Talvez?
end;