хуки для самых маленьких

[cvillian]

Функции перехватил:

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 выковыривать информацию