Каким способом лучше всего и быстрее выводить анимацию?

Graphics::TBitmap
Transparent = 1
Canvas->Draw

#include "PngImage.hpp"

void __fastcall TForm1::FormCreate(TObject * Sender) {
        DoubleBuffered = true;
}

void __fastcall TForm1::FormCreate(TObject * Sender) {
        DoubleBuffered = true;
        for (int i = 0; i < ComponentCount; i++)
                if (TWinControl * ctrl = dynamic_cast<TWinControl*>(Components[i]))
                        ctrl->DoubleBuffered = true;
}

void __fastcall TForm1::FormCreate(TObject * Sender) {
        DoubleBuffered = true;
        for (int i = 0; i < ComponentCount; i++)
                if (TWinControl * ctrl = dynamic_cast<TWinControl*>(Components[i]))
                        ctrl->DoubleBuffered = true;
        jpg = new TJPEGImage;
        jpg->LoadFromFile(Path + "fMwhZes3djE.jpg");
}
 
void __fastcall TForm1::FormDestroy(TObject * Sender) {
        jpg->Free();
}
 
void __fastcall TForm1::FormResize(TObject * Sender) {
        Repaint();
}
 
void __fastcall TForm1::FormPaint(TObject * Sender) {
        TCanvas * C = Canvas;
        C->Lock();
        C->Brush->Color = clBlack;
        C->FillRect(C->ClipRect);
        C->Draw(0, 0, jpg);
        C->Draw(0, frameID % ClientHeight, jpg);
        C->Draw(frameID % ClientWidth, 0, jpg);
        C->Draw(frameID % ClientWidth, frameID % ClientHeight, jpg);
        C->Brush->Style = bsClear;
        C->Font->Color = clLime;
        C->Font->Size = 26;
        C->Font->Name = "Arial";
        C->Font->Style << fsBold;
        C->TextOutA(15, 15, IntToStr(frameID));
        C->Unlock();
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender) {
        frameID+=5;
        Repaint();
}

#include <jpeg.hpp>
TJPEGImage *jpg = new TJPEGImage;
TJPEGImage *jpg2 = new TJPEGImage;
int i = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
        DoubleBuffered = true;
        jpg->LoadFromFile("xZ556JCtol0.jpg");
        jpg2->LoadFromFile("W2_NT3U7x_M.jpg");
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)  //interval (1)
{
        Canvas->Draw(0, 0, jpg);
        i++;   
}
void __fastcall TForm1::Timer2Timer(TObject *Sender) //interval (1)
{
        Canvas->Draw(0, 0, jpg2);
        i++;    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender) //interval(1000)
{
        Form1->Caption = i;   
        i = 0;
}
//---------------------------------------------------------------------------

C->Lock();
C->Unlock();

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Canvas->Unlock();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Canvas->Lock();
}
//---------------------------------------------------------------------------