Организация просмотрщика отчетов

TStringList *Lst = new TStringList;
Lst->LoadFromFile("Date\\"+imja+".txt");
for(int i = 0; i < Lst->Count; i++)
 {
  Image1->Canvas->TextOutA(10,i*15+50,Lst->Strings[i]);
 }
delete Lst;

Graphics::TBitmap*b=new Graphics::TBitmap();
b->Height=RichEdit1->ClientHeight;//600
b->Width=RichEdit1->ClientWidth;  //500
b->Canvas->Font->Size=RichEdit1->Font->Size;
b->Canvas->Font->Name=RichEdit1->Font->Name;
 
TStringList *Lst = new TStringList;//áåç ýòîãî
Lst->Text=RichEdit1->Text;
Edit1->Text=IntToStr(Lst->Count);
for(int i = 0; i < Lst->Count; i++)//ÿ íå çíàþ ñêîëüêî ñòðîê
 {
  b->Canvas->TextOutA(0,i*15,Lst->Strings[i]);//15 çàâèñèò îò ðàçìåðà øðèôòà
 }
delete Lst;
Lst=NULL;
 
Image1->Canvas->CopyRect(Rect(0,0,Image1->Width,Image1->Height),b->Canvas,Rect(0,0,b->Width,b->Height));
//Image 300*250
delete b;
b=NULL;
RichEdit1->Visible=false;

//функция изменения размера компонента пропорционально размеру текста
void __fastcall TFOrderView::FontResize(int size)
{
if (FSize->Caption.ToInt()>30&&FSize->Caption.ToInt()<200||FSize->Caption.ToInt()==200&&size<0||FSize->Caption.ToInt()==30&&size>0) {
     int count;
 
     List->Visible=false;
     List->SelectAll();
     count=List->SelLength;
 
     for (int i = 0; i < count; i++) {
        List->SelStart=i;
        List->SelLength=1;
        List->SelAttributes->Size+=size;
     }
     List->Visible=true;
     List->Height+=size*(selH/11);
     List->Width+=size*(selW/11);
 
     FSize->Caption=FSize->Caption.ToInt()+size*10;
 
     Align();
}
}

void __fastcall TFOrderView::UpDown1ChangingEx(TObject *Sender, bool &AllowChange,
          short NewValue, TUpDownDirection Direction)
{
if (AllowChange) {
    if (Direction==1) {
        FontResize(1);
    } else {
        FontResize(-1);
    }
}
}

for (int i = 0; i < count; i++) {
        List->SelStart=i;
        List->SelLength=1;
        List->SelAttributes->Size+=size;
}