Дата создания документа

[romanzi]

Как с помощью Timer1,в label указать дату создания или редактирования файла, который был открыт? (дайте в любом виде, главное - полностью).

[ArtGrek]

мне интересно зачем здесь таимер?

implementation

{$R *.dfm}

function GetFileDateTime(FileName: string): TDateTime;
var
  intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

procedure TForm2.sButton1Click(Sender: TObject);
begin
  Label.Caption := IntToStr(GetFileDateTime(FileName)