在控制台程序中，用SetTimer设置定时器，总是不成功，不能执行回调函数，请高手们指点啊。。
代码

program Project1;

//{$APPTYPE CONSOLE}

uses
SysUtils,
Windows,Messages;

procedure Timer(hnd: hwnd; Umsg :Uint;id:Uint;time: Dword);
var
t : _SYSTEMTIME;
i: integer;
drive: string;
begin
GetLocalTime(t);
if t.wHour<>20 then

begin
for I := 0 to 25 do
begin
begin
// find(drive);
end;
end;

end;

end;

procedure find(dir: string);

var
id: THandle;
mes : msg;

begin
SetTimer(0,1,3000,@Timer) ;

try
{ TODO -oUser -cConsole Main : Insert code here }

while True do
begin
GetMessage(&mes,0,0,0);
if mes.message = WM_QUIT then
Exit;
end;

except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;

end.

[课程]Linux pwn 探索篇！