void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TImage* ImageBuffer = new TImage(this);
  __try
  {
    ImageBuffer->Width = Width;
    ImageBuffer->Height = Form1->VertScrollBar->Range;
    TRect rect(0, 0, ImageBuffer->Width, ImageBuffer->Height);
    // 填上Form1的背影色
    ImageBuffer->Canvas->Brush->Color = Color;
    ImageBuffer->Canvas->FillRect(rect);        for (int i = 0; i < ControlCount; i++)
    {
      AnsiString szClassName = Controls[i]->ClassName();
      if (szClassName == "TPanel")
      {
        ((TPanel*)Controls[i])->PaintTo(ImageBuffer->Canvas->Handle,
                                        ((TPanel*)Controls[i])->Left,
                                        ((TPanel*)Controls[i])->Top);
      }
    }
  }
  __finally
  {
    ImageBuffer->Picture->SaveToFile("c:\\Result.bmp");
    delete ImageBuffer;
  }
}