Сохранить Image->canvas в файл

void __fastcall TForm1::Button7Click(TObject *Sender)
{  //получим значения
String Path;
AnsiString Path2;
Graphics::TBitmap *a=new Graphics::TBitmap;
for (size_t i=5;i<6;++i)    //ходим по файлам      11
    {
    ProgressBar1->Position=i;
     Path="D:\\"+String(i)+".txt";
  std::fstream input; //для обхода файлов
  input.open(Path.c_str());
    std::string line;
    std::vector<float> db;  //объявим вектор под значения из строки файла
    while(getline(input,line)) //цикл чтения из файла и расчеты в нем
            {
     db.reserve(800);         //резерв места
     std::stringstream ss(line.c_str());
     std::copy(std::istream_iterator<float> (ss), std::istream_iterator<float> (), std::back_inserter(db) );
       //тут дб заполнен строкой
       int x=25;
       Image1->Canvas->FillRect(Image1->Canvas->ClipRect);   //очистим
       Image1->Canvas->MoveTo(x,Image1->Height-db[0]*2);
           for (size_t n=0; n<db.size(); ++n)
                {
            Image1->Canvas->LineTo(x,Image1->Height-db[n]*2);
            ++x;
            Image1->Canvas->Refresh();
            Path2= "D:\Graph\\" +String(n);
            Image1->Repaint();
              }
            db.clear();
            }//переход на след стр
    }//переход на следующий файл
}

а->SaveToBitmapFilе(Path2);

Image1->Picture->Bitmap->Width = 120;
Image1->Picture->Bitmap->Height = 120;
Image1->Picture->Bitmap->Canvas->Rectangle(10,10,20,20);
Image1->Picture->Bitmap->SaveToFile("1.bmp");

Image1->Picture->Bitmap->Canvas

Image1->Canvas