Pdicom处理Dicom图像

[大海呀吼]

救急！！！被这段代码困扰很久，不理解，我是刚学变成的大学生

[doloopcn]

Tinformation=record
PatientID,
PatientName,
PatientBirthDate,
PatientSex,
StudyID,
StudyDate,
StudyTime,
InstitutionName,
Manufacturer,
NumerOfFrames:String
end;
....

var
Information:TInformation;

......
procedure LoadFileInformation(FileName:String);
var
ds:TDComFileClass;
begin
ds:=dcom.read_file(FileName);
Information.....:=ds.......;
end;
end;