[moo2k]

Код:

var 
fileName : string; 
fileDate : Integer; 
begin 
fileName := Имя твоего файла; 
fileDate := FileAge(fileName); 
if fileDate > -1 then 
ShowMessage(fileName+' время последней модификации= '+ 
DateToStr(FileDateToDateTime(fileDate))); 
end;