procedure TForm1.Button1Click(Sender: TObject);
var
  vData : TDateTime;
begin
  { Obtendo a data de um executável qualquer. }
  FileAge('C:\Sua Pasta\SeuExecutavel.exe', vData);
  ShowMessage(DateToStr(vData));
 
  { Obtendo a data do próprio exe }
  FileAge(ParamStr( 0 ), vdata);
  ShowMessage(DateTimeToStr(vData));
 
  { Outra forma seria assim }
  ShowMessage( DateTimeToStr(FileDateToDateTime(FileAge(ParamStr( 0 )))));
 
  { Mas neste último caso irá aparecer um Warning de deprecated }
end;