delphi起动画面

delphi启动画面
各位大侠：
  我在使用sleep（）函数后，闪屏上的gauge怎么能改变progress了，我加了一个timer控件，但是sleep后；好像timer也不工作了，怎么回事啊~，求各位大侠帮助，能详细一点更好

[解决办法]
把Sleep(6000);改成：

Delphi(Pascal) code

var  StartTick: Cardinal;begin  StartTick := GetTickCount;  repeat    Application.ProcessMessages;    Sleep(100);  until GetTickCount - StartTick >= 6000;end;