procedure showmsg;
begin
showmessage('时间到了'); //检查时间已到。
end;


SetTimer(0, $AA, 5000, @showmsg);