用过千千静听的朋友可以看出程序关闭时有个程序颜色变浅最后退出的效果。我也想做一个。我是这样做的：
用一个timer控件，enabled设为false，
用一个FormCloseQuery加上代码
canclose:=false;
if Application.MessageBox( "确实要关闭吗？ ", "请确认 ", MB_iconinformation+MB_YESNO)=idyes
then begin
timer2.enabled:=true;
goto programtime;
programend:
canclose:=true;
end;

timer代码（时间间隔为100毫秒):
programtime:
while form1.AlphaBlendValue >0 do
form1.AlphaBlendValue:=form1.AlphaBlendValue-60;
goto programend;

我试图用label定义，但是找不到定义的位置，问问大家！
怎么让这个程序段能连接起来达到目的！
或者您也可以给我别的可以做到这一点的程序代码，谢谢了！