function GetFileDate(FileName: string): string;  
var  
  FHandle: Integer;  
begin  
  FHandle := FileOpen(FileName, 0);  
  try  
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));  
  finally  
    FileClose(FHandle);  
  end;  
end;