uses

  SysUtils

function GetFileDateTime(FileName: string): TDateTime;
var

  intFileAge: LongInt;

begin
    intFileAge := FileAge(FileName);
    if intFileAge = -1 then
      Result := 0
    else
      Result := FileDateToDateTime(intFileAge)
end;