很奇怪的问题，请大家做答！
我想使程序在生成界面10秒后显示一条信息，但用下面的代码为什么不行？请高手指点，谢谢！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,dateutils;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
st:tdatetime;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
st:=now;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now=incsecond(st,10) then
showmessage('ok');
end;
end.
问题点数：0、回复次数：8Top
1 楼delphimo（(误入歧途)）回复于 2003-06-03 22:02:50 得分 0
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now-ST=incsecond(st,10) then
showmessage('ok');
end;Top
2 楼delphimo（(误入歧途)）回复于 2003-06-03 22:03:13 得分 0
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (now-ST)=incsecond(st,10) then
showmessage('ok');
end;
Top
3 楼goodtime7702（李东宝）回复于 2003-06-03 22:12:52 得分 0
procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('ok');
timer1.Enabled:=false;
end;Top
4 楼hacking（hacking）回复于 2003-06-03 22:45:23 得分 0
来晚了,同意goodtime7702(李东宝)Top
5 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2003-06-04 00:35:47 得分 0
同意！Top
6 楼guoyongzhen（gyz）回复于 2003-06-09 11:10:00 得分 0
还是不行啊，没人知道怎么办吗？Top
7 楼7thstar（7thstar）回复于 2003-06-09 11:25:07 得分 0
呵呵TIMER控件的触发时间得设置为10000,ENABLE属性要设置成默认的TRUETop
8 楼dcdndl（dcdndl）回复于 2003-06-09 11:29:09 得分 0
用timer没用的，因为在create时timer1.timer还不可能执行
手边没有delphi，无法测试，看看有没有sleep之类的函数
放在create的最后一行Top
