怎么样获得文件的创建时间(50分)

怎么样获得文件的创建时间，并将其转化为Tdatetime型

function CovFileDate(Fd:_FileTime):TDateTime;
var
; Tct:_SystemTime;
; Temp:_FileTime;
begin
; FileTimeToLocalFileTime(Fd,Temp);
; FileTimeToSystemTime(Temp,Tct);
; CovFileDate:=SystemTimeToDateTime(Tct);
end;

function GetFileTime(const Tf:string):TDateTime;
{ 获取文件时间，Tf表示目标文件路径和名称 }
var
; Tp:TSearchRec; { 申明Tp为一个查找记录 }
begin
; FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 }
; Result:=CovFileDate(Tp.FindData.ftCreationTime);
; { 返回文件的创建时间 }
; FindClose(Tp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
; Caption:=DateTimeToStr(GetFileTime(Edit1.Text));
end;

win api 中定义了WIN32_FIND_DATA结构，用来记录文件的时间和属性信息
TWIN32FINDDATA是对WIN32_FIND_DATA的封装
FILETIME 文件的创建时间

多人接受答案了。