Yo lo hago con esta funcion:
Código Delphi
[-]
function GetFileDate(TheFileName: string): Double;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
try
Result := FileDateToDateTime(FileGetDate(FHandle));
finally
FileClose(FHandle);
end;
end;
y para usarlo utilizas esto:
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var fecha1:TDateTime;
begin
fecha1:= GetFileDate(ExtractFilePath(Application.ExeName)+'TuApp.exe');
end;