🚀 go-pugleaf

Hello how could I paint a image series (for create animation) in non client 
area (border form)
without flickering ?

I created an animation with TThread class. It works but with flickering 
(any)

class TAnimationThread : public TThread
{
private:
    int FSpeed;

protected:
    void __fastcall Execute()
    {
        int i = 0;
        int nDir;
        FreeOnTerminate = true;

        while ( ! Terminated )
        {
            if ( ! FormMain->TimerProgressBar->Enabled )
                i = 0;

            TCanvas *pCanvas = new TCanvas;
            pCanvas->Handle = GetWindowDC( FormMain->Handle );
            // output the caption string
            int pMode = SetBkMode( pCanvas->Handle, TRANSPARENT );
            Graphics::TBitmap * pBitmap = new Graphics::TBitmap();
            FormMain->ImageListAnimate->GetBitmap(i, pBitmap);
            pCanvas->Draw(FormMain->Width - pBitmap->Width - 2, 2, pBitmap);
            //SetBkMode( pCanvas->Handle, pMode );
            ReleaseDC( FormMain->Handle, pCanvas->Handle );
            delete pBitmap;

            pCanvas->Handle = NULL;
            delete pCanvas;

            if ( i == 8 )
                nDir = -1;
            else
            if ( i == 0 )
                nDir = 1;

            i += nDir;

            Sleep(FSpeed);

            if ( ! FormMain->TimerProgressBar->Enabled )
            {
                i = 0;
                Terminate();
            }
        }
    }
public:
    __fastcall TAnimationThread(bool 
CreateSuspended):TThread(CreateSuspended)
    {
    }
    __fastcall TAnimationThread(int nSpeed):TThread(false)
    {
        FSpeed = nSpeed;
        Priority = tpHighest;
    }
};