SenBuf- przesłanie bufora przez Socket

Hej
Ogólnie chodzi o to, ze chcialbym przysylac skompresowany dzwiek przez net. Przeslaie samego bufora nie robi problemow natomiast chialbym przeslac caly obiekt na serwer a w nim dodatkowe pola informacyjne zeby potem moza to ozsyłac.
Obiekt wyglad nastpujaco:

Type
  TSendObj = object
    kto : String;
    co : String;
    Gdzie : String;
    dzwiek:array of byte; //nie do  konca wiem jaki tu ma byc typ
    size:longint;
End;

var
 buf : TSendObj;

Zanim jednak ten bufor prześlę bede musiał zapełnic obiekt

procedure TForm1.WyslijDzwiekData(data: Pointer; size: Integer);
var
  NewData                     : Pointer;
  NewDataSize                 : Integer;
begin

    NewDataSize := size;
    GetMem(NewData, NewDataSize);

//k.Socket.SendBuf(data^,size);  - gdybym wywylal sam dzwiek to bym tylko tak robil

  buf.co := 'xx';
  buf.kto := 'xx';

  buf.data:=//  tu nalezy wstawic bufor dzwieku opisany data: Pointer; size:Integer
  buf.size:=size;
  k.Socket.SendBuf(Buf,SizeOf(buf));
  Freemem(NewData);
end;

jak to zrobic aby w zmiennej buf.dzwiek znalazl sie caly bufor dlugosci SIZE dzieku??

POMOCY [???]

może CopyMemory ???