Анимированное изображение в RAD Studio 2010

    Graphics::TBitmap* Draw()
    {
        CurrentFramePosition = TRect(FrameWidth*FrameNumber,0,FrameNumber*FrameWidth+FrameWidth,FrameHeight); // определим положение текущего кадра
/* возьмем изображение 200*50px, при текущем кадре 4, получается TRect(200,0,250,50) , которого нет*/
        Frame->Canvas->FillRect(TRect(0,0,FrameWidth,FrameHeight));
        Frame->Canvas->CopyRect(AnimationDisplayArea,Animation->Canvas,CurrentFramePosition); // вывод кадра
        return Frame;
    }
    void Animate()
    {
        if(FrameNumber == FrameCount)  /*Сначала проверяется не равен ли кадр максимальному, а потом присваивается */
            FrameNumber = 0;
        else
            FrameNumber++;
    }
 
/*Можно исправить двумя спосабами:*/
 
    void Animate()
    {
        if(FrameNumber == (FrameCount-1)) 
            FrameNumber = 0;
        else
            FrameNumber++;
    }
/*или "сначала присвоить а потом проверить"*/
    void Animate()
    {
        FrameNumber++;
        if(FrameNumber == FrameCount)  FrameNumber = 0;
    }

    void Animate()
    {
        if(FrameNumber < FrameCount) 
            FrameNumber++;
        else
            FrameNumber = 0;
    }