struct A
{
  ...
};

A a;
int buflen = sizeof(A);
void* buf = new char[sizeof(A) + sizeof(buflen)];
memcpy(buf, &buflen,sizeof(buflen));
memcpy(buf + sizeof(buflen), &a, sizeof(A));

 //тут получаем из сокета 

buflen:=sizeof(A);
CopyMemory(a,buffer+sizeof(buflen),sizeof(buffer)-sizeof(buffer));

//тут получаем из сокета
buflen:=sizeof(A);
CopyMemory(a,buffer+sizeof(buflen),sizeof(buffer)-sizeof(buflen));

 1 .Количество(длина пункта два)
 2 .Массив структур

 type  Infos= record 
Len:integer;
Ar: array   of  info;
 end ;

 ROT= record 
 id:integer;
 name: string ;
  case  byte  of 
  1 :(x:integer; y:integer;);
  2 :(Home:integer);
  end ;