delphi - Delphi コピー MemoryStream を動的配列に

Question

こんにちは、私はこのパックされたレコードを持っています:

type
 TMyRecord = packed record
    BufSize: Word;
    TargetUser:array[0..80] of char;
    StreamHolder: Byte;
  end;
  PMyRecord = ^TMyRecord;

// MemoryStream を StreamHolder に保存したいので、以下の手順を参照してください。

Procedure AddToRec(ATargetUser:String);
var
MyRecord: PMyRecord;
Strm:TMemoryStream;
Size: Integer;
begin
Strm:=TMemoryStream.Create;
try
Strm.LoadFromFile('myFile.dat');
Strm.position:=0;
Size:=Strm.size;
GetMem(MyRecord,Size);
ZeroMemory(MyRecord,Size);
MyRecord.BufSize := Size;
StrCopy(MyRecord.TargetUser,PChar(ATargetUser));

// here how could i copy the Strm into the StreamHolder ?

//SendMyBuffer(MyRecord,Size);

finally
Strm.free;
end;
end;

では、どうすれば Strm を StreamHolder にコピーできますか?

どうもありがとう