delphi 如何获取文件创建日期

[qq_34656542]

function CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;
procedure GetFileTime(const Tf:string);
{ 获取文件时间，Tf表示目标文件路径和名称 }
const
Model='yyyy/mm/dd'; { 设定时间格式 }
var
Tp:TSearchRec; { 申明Tp为一个查找记录 }
T1,T2,T3:string;
begin
FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 }
T1:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftCreationTime));
{ 返回文件的创建时间 }

FindClose(Tp);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
f:String;
begin
mmo1.Text:= GetFileTime('D:\update\files20160412\01\vts\newqysdsnb2015.vts');

end;

这样引用这个方法错了吗，为什么一直报错

[lyhoo163]

function GetFileTime(sFileName:string):String;  
var ffd:TWin32FindData;
    dft:DWord;
    lft,Time:TFileTime;
    H:THandle;
const Model='yyyy-mm-dd hh:nn:ss'; // 设定时间格式
begin
  H:=Windows.FindFirstFile(PChar(sFileName),ffd);
  Time:=ffd.ftCreationTime;
//获取文件信息
  if(H<>INVALID_HANDLE_VALUE)then
  begin
    Windows.FindClose(H);                                      
    FileTimeToLocalFileTime(Time,lft);                         
    FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
    Result:= FormatDateTime(Model, FileDateToDateTime(dft));   
  end
  else result:='';
end;

[ttbook001]

GetFileTime 你这个是个过程，你当函数获取返回值？ 应该编译不过的吧。