如何获得exe的编译时间？(100分)

project编译时能否自动将当前时间记录下来？
比如，编译时在主form的caption上记录当前时间，
这样，exe运行时就很明白是哪个时间的版本了。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
function getfiledate(filename: string): Tdatetime;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.getfiledate(filename: string): Tdatetime;
//获得文件时间
begin
if fileexists(filename) then
result := filedatetodatetime(fileage(filename))
else
result := maxint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := DateTimeToStr(GetFileDate(Application.ExeName));
end;

end.

date
now

application.title:=

房客,你这样得到的就是运行时间了吧？

请继续或结束

我以前研究过，怕是没编译进目标代码
win2000的办法是取文件建立时间，不过那是可以随便改的

以前的：
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or
ES_NUMBER);

多人接受答案了。

Faint！我写得是什么呀，自己都看不懂。