很菜的一段程序 帮小弟看一下

Question

想使用 Timer ，在指定时间后执行一个动作，且不显示任何窗口。程序如下：
program custimer;uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,extctrls;  type
    TTimer1 = class(TTimer)
    private
      { Private declarations }
    public
      { Public declarations }
      procedure timer;override;
    end;
    procedure TTimer1.timer;
    begin
      inherited;
      showmessage('aaaaaaaaaaaa');
    end;
  var
    timer:ttimer1;
{$R *.RES}begin
  //Application.Initialize;
  timer.Create(nil);
  //timer.Interval:=1000;
  //Application.Run;
end.

Answer 1

在program用timer无效，用Sleep(毫秒)。

Answer 2

那有必要用TIMER吗？什么都不用，双击窗体，在CREATE事件中输入：
begin
  （想做的事）；
  application.halt;
end;