Delphi 获取文件时间(创建时间和修改时间)

procedure TForm1.getFileTime
var
  tp: TSearchRec;
  t1, t2,strFormat: string;
begin

  strFormat:='yyyy-MM-dd hh:mm:ss';
  {获取文件时间(创建时间和修改时间) edit1.Text文件的完整路径}
  FindFirst(edit1.Text, faAnyFile, tp);
  t1:= '创建时间: '+ FormatDateTime(strFormat, CovFileDateTime(tp.FindData.ftCreationTime));
  t2:= '修改时间: '+ FormatDateTime(strFormat, CovFileDateTime(tp.FindData.ftLastWriteTime));
  ShowMessage(t1+ #13#10+ t2);
end;