Функции перехватил:
Код:
function new_recv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
sz: Word;
id: byte;
begin
Form1.ListBox1.Items.Add('recv');
result:= old_recv(s, buf, len, flags);
end;
но непонятно как из Buf выковыривать информацию