копирование картинки в TImage

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int progress=0;//Уровень заполнения Прогрессбара
 
Graphics::TBitmap* b=new Graphics::TBitmap;//Изображение, в котором будет хранится целая картинка заполненной шкалы
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
b->LoadFromFile("F:\\load.bmp");//загружаем нашу картинку
}
//---------------------------------------------------------------------------

 progress+=12;//данная переменная отвечает за заполненную часть шкалы (прибавлять можно любое значение)
 
   Image1->Canvas->CopyRect(Rect(0,0,progress,9),b->Canvas, Rect(0,0,progress,9));//Копируем с изображения нашей заполненной шкалы определенный участок (от начала, до значения progress по горизонтали)
   if(progress>380)Timer1->Enabled=0; //при заполнении шкалы выключаем таймер