送分题，关于TTimer的使用

Question

我想实现某事件触发后过1s钟后执行某项操作，又不想使用Sleep，通过TTimer应该怎么实现呢？
我想做一个函数，专门实现wait n秒，但系统又不失去响应的功能，这个函数应该怎么写呢？

Answer 1

procedure Delay(DelayTime: Cardinal);
var
  FirstTickCount: Cardinal;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
  until ((GetTickCount - FirstTickCount) >= DelayTime);
end;

Answer 2

验证通过！谢谢大哥！
能不能再多问一下，GetTickCount是什么意思呢？