TCanvas * DeskTop = new TCanvas;
if (DeskTop)
        {
        DeskTop->Handle = GetDC(HWND_DESKTOP);
        DeskTop->Brush->Style = bsClear;
        DeskTop->Font->Size = 36;
        DeskTop->Font->Style = TFontStyles() << fsBold;
        DeskTop->Font->Name = "Lucida Console";

        int count = DeskTop->Font->Size*3;
        int Xit_st = -1;
        int Yit_st = -1;
        int X = 50;
        int Y = 50;
        for (int y=count;y>0;y--)
                {
                int cv = 255-255/y;
                DeskTop->Font->Color = (TColor)RGB(cv,cv,cv);
                DeskTop->TextOut(X+Xit_st*y,Y+Yit_st*y,"www.sources.ru");
                }
        ReleaseDC(0, DeskTop->Handle);
        }
delete DeskTop;