[NumLock]

Код:

var
  h: Integer;
  ft: TFileTime;
  st: TSystemTime;
begin
  h:=FileOpen('Project1.dpr', fmOpenRead);
  if h=-1 then RaiseLastOSError;
  try
    if not GetFileTime(h, @ft, nil, nil) then RaiseLastOSError;
    FileTimeToSystemTime(ft, st);
    Edit1.Text:=DateTimeToStr(SystemTimeToDateTime(st));
  finally
    FileClose(h);
  end;
end;