如何取得文件“属性"页中的相关信息？

procedure GetFileTimeL(Tf:String; var T1,T2,T3,TSize:String);
const
  Model='yyyy/mm/dd,hh:mm:ss'; { 设定时间格式 }
var
  Tp:TSearchRec; { 申明Tp为一个查找记录 }
begin
  FindFirst(Tf ,faAnyFile,Tp); { 查找目标文件 }
  T1:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftCreationTime));{ 返回文件的创建时间 }
  T2:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime));{ 返回文件的修改时间 }
  T3:=FormatDateTime(Model,Now);{ 返回文件的当前访问时间 }
  TSize:=IntToStr(TP.Size div 1024);  {文件大小}
  t:=TP......
  t:=TP......
  FindClose(Tp);
end;