我有很短的一段二进制数据(几十个字节)，怎样放到一个Stream里？(50分)

我要都写到程序里，不从外面读，所以请别告诉我用资源或者TFileStream什么的。
谢谢！

const
ConstInfo:array[1..12]of Byte=(1,56,23,145,93,3,230,23,123,78,39,9);
procedure TForm1.Button1Click(Sender: TObject);
var
Stm:TMemoryStream;
Buf:array[1..256]of Byte;
i,n:Integer;
begin
Stm:=TMemoryStream.Create;
Stm.Write(ConstInfo,SizeOf(ConstInfo));
Stm.Seek(0,soFromBeginning);
n:=Stm.Read(Buf,SizeOf(Buf));
Caption:='Size is:'+IntToStr+' Data: ';
for i:=1 to n do
Caption:=Caption+IntToStr(Buf)+' ';
Stm.Free;
end;

不知合不合你的要求。

谢谢