Прозрачный текст в TLabel

::SetLayeredWindowAttributes(Form1->Handle,clWhite ,64,LWA_ALPHA | LWA_COLORKEY);

namespace Transparent_Label
{
    class TLabel : public Stdctrls::TLabel
    {
        bool FHide;
        TTimer *tmr;
        int rgb;
        void __fastcall ColorTimer(TObject *Sender)
        {
            if((FHide && rgb <= 200) || (!FHide && rgb >= 0))
            {
                this->Font->Color = RGB(rgb, rgb, rgb);
                rgb -= (1 - 2 * (int)FHide) * 2;
            }
            else tmr->Enabled = false;
        }
    public:
        __fastcall virtual TLabel(Classes::TComponent* AOwner) : Stdctrls::TLabel(AOwner)
        {
            tmr = new TTimer(this);
            tmr->OnTimer = ColorTimer;
            tmr->Interval = 10;
            tmr->Enabled = false;
        }
        void ChangeText(String s) // этот метод вызывать при необходимости сменить текст...
        {
            if(Caption != s)
            {
                rgb = 0;
                FHide = true; tmr->Enabled = true;
                while(tmr->Enabled)
                {
                    Sleep(1);
                    Application->ProcessMessages();
                }
                Caption = s;
                FHide = false; tmr->Enabled = true;
                while(tmr->Enabled)
                {
                    Sleep(1);
                    Application->ProcessMessages();
                }
            }
        }
    };
};
#define TLabel Transparent_Label::TLabel