этот код
delphi Код:
Client.Socket.ReceiveBuf(size, 2);
SetLength(pck, size-2);
Client.Socket.ReceiveBuf(pck[1], size-2);
mes.Lines.Add(StringToHex(pck,' '));
исправь на
delphi Код:
if Client.WaitForData(1000) then begin
Client.ReceiveBuf(size, 2);
SetLength(pck, size);
Client.ReceiveBuf(pck[1], size);
mes.Lines.Add(IntToStr(size)+' - '+StringToHex(pck,' '));
end;