[ALexandr555]

спасибо,
но вот проблема

Код:

var
  pacet: TSendStruct;
begin
...
...
 pacet:=Copy(buf, 1, Socket.ReceiveLength);

где TSendStruct = packed record

как быть

[Error] Main.pas(389): Incompatible types: 'TSendStruct' and 'String'