向数组赋值(20分)

我定义了一个数组：
up_mb:Taaray2
Tarray2=array of TZDP
TZDP=record
hres:integer;
zres:integer;
direct:integer;
flag:char;
end;
我准备把一个文件里的二进制数据赋给up_mb,请问我该怎么办？

var stream : TFileStream
siez : Integer;
begin
Stream := TFileStream.Create('yourfilename',fmReadOnly);
size := stream.size div sizeof(tzdp);
stream.position := 0;
setlength(up_mb,size);
stream.read(up_mb,size*sizeof(tzdp));

问题已经解决