在DELPHI程序中，如何得到文件的修改时间，并付给一个变量？(50分)

在DELPHI程序中，如何得到文件的修改时间，并付给一个变量？

FindFirst, FindNext, 得到结果TSearchRec类型中的FindData成员中有的.
参考: TWin32FindData; (FindData的类型是TWin32FindData)

procedure TForm1.Button1Click(Sender: TObject);
var Finf:_WIN32_FIND_DATAA;
fhdWORD;
ltime:TFileTime;
stime:TSystemTime;
begin
if OpenDialog1.Execute then
begin
fhd:=FindFirstFile(PChar(OpenDialog1.FileName),Finf);
if fhd<>INVALID_HANDLE_VALUE then
begin
Windows.FindClose(fhd);
FileTimeToLocalFileTime(Finf.ftCreationTime,ltime);
FileTimeToSystemTime(ltime,stime);
Edit1.Text:='Create: '+DateTimeToStr(SystemtimeToDateTime(stime));
FileTimeToLocalFileTime(Finf.ftLastAccessTime,ltime);
FileTimeToSystemTime(ltime,stime);
Edit2.Text:='Last access: '+DateTimeToStr(SystemtimeToDateTime(stime));
FileTimeToLocalFileTime(Finf.ftLastWriteTime,ltime);
FileTimeToSystemTime(ltime,stime);
Edit3.Text:='Last write: '+DateTimeToStr(SystemtimeToDateTime(stime));
end;
end;
end;

多人接受答案了。