Tek satırlık kodla dosya tarihi alma

[csyasar]

Label1.Caption := DateToStr(FileDateToDateTime(FileAge(OpenDialog1.FileName)));