[ALexandr555]

Код:

  
var
  pacet: TSendStruct;
  ms: TMemoryStream;
  kom: string;
begin
 Socket.ReceiveBuf(buf^, Socket.ReceiveLength);
kom:=Copy(buf, 1, Socket.ReceiveLength);
 ms.Read(kom[1], Length(kom));
 ms.Write(pacet, Length(kom));

ну компилируется, но похоже чтото не так у меня... так как ошибка по приходу данных...