Вывод на канву длинного текстового списка в несколько строк

    std::auto_ptr<TBitmap>bm(new TBitmap);
    bm->Canvas->Lock();
    __try
    {
        bm->Height = StaticText1->Height;
        bm->Width = StaticText1->Width;
        StaticText1->PaintTo(bm->Canvas->Handle, 0, 0);
    }
    __finally
    {
        bm->Canvas->Unlock();
    }
    Image1->Picture->Assign(bm.get());

NPForm->StaticText1->PaintTo(NPForm->Image1->Canvas->Handle,10,20);

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    StaticText1->PaintTo(Image1->Canvas,0,0);
}

#include <memory>

TBitmap *bm = new TBitmap;
// тут приведенный выше код безо всяких get()
delete bm;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        std::auto_ptr<TBitmap>bm(new TBitmap);
        bm->Canvas->Lock();
        __try
        {
            bm->Height = StaticText1->Height;
                bm->Width = StaticText1->Width;
                StaticText1->PaintTo(bm->Canvas->Handle, 0, 0);
        }
        __finally
        {
            bm->Canvas->Unlock();
        }
        Image1->Picture->Assign(bm.get());
}

Image1->Picture->Assign(bm.get());

StaticText1->PaintTo(Image1->Canvas,0,0);

if (PrintingDebugging) NPForm->ShowModal(); else pImageToPrinter('p');

NPForm->Close();

if (PrintingDebugging) NPForm->ShowModal(); else pImageToPrinter('p');

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        StaticText1->PaintTo(Image1->Canvas,0,0);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    StaticText1->Visible=false;Image1->Visible=false;
        StaticText1->PaintTo(Image1->Canvas,0,0);
        Image1->Visible=true;
}

StaticText1->PaintTo(Image1->Canvas,0,0);