var
s:string;
pck:array [0..65534] of byte;
pck2:array [0..65534] of byte;
begin
len:=recv(sock,pck,MAX_PKT_SIZE,0);
move(pck[0],pck2[0],len);
s:='';
s:=s+inttohex(pck2,2);
memo1.lines.Add(s);