Нужна помощь...

[PanAm]

этот код

Client.Socket.ReceiveBuf(size, 2);
SetLength(pck, size-2);
Client.Socket.ReceiveBuf(pck[1], size-2);
mes.Lines.Add(StringToHex(pck,' '));

исправь на

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;