Печать поля Memo и RichEdit

 Printer()->BeginDoc();
 Printer()->Canvas->Font->Pitch=fpFixed;
 for(int i = 0; i < Memo1->Lines->Count; i++)
 {
  Printer()->Canvas->TextOut(200, 200 +
  (i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])),
  IntToStr(i+1)+" "+Memo1->Lines->Strings[i]);
 }
 Printer()->EndDoc();

RichEdit1->Print("Печать");

class DELPHICLASS TPrinter;
class PASCALIMPLEMENTATION TPrinter : public System::TObject
{
 //............................................
 extern PACKAGE TPrinter* __fastcall Printer(void);
}

void __fastcall TForm3::Button1Click(TObject *Sender){
  if(PrintDialog1->Execute()){
  Printer()->BeginDoc();
  Printer()->Canvas->Font->Pitch=fpFixed;
  for(int i = 0; i < Memo1->Lines->Count; i++)
  {
  Printer()->Canvas->TextOut(200, 200 +
  (i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])),
  IntToStr(i+1)+" "+Memo1->Lines->Strings[i]);
  Printer()->EndDoc();
  }
  }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 const int TOTAL_PAGES = 4;      // Сколько страниц печатать
 int page, startPage, endPage;
 // Создание диалога выбора принтера
 TPrintDialog *printDialog = new TPrintDialog(this);
 // Установка опций диалога печати
 printDialog->MinPage = 1;
 printDialog->MaxPage = TOTAL_PAGES;
 printDialog->ToPage  = TOTAL_PAGES;
 printDialog->Options << poPageNums;
 // Если пользователь выбрал принтер (или значение по умолчанию), то печатаем!
 if(printDialog->Execute())
 {
  //используем глобальный класс. ВНИМАНИЕ отдельного экземпляра создавать не нужно
  Printer()->Orientation = poLandscape;
  Printer()->Title = 'Тест';
  Printer()->Copies = printDialog->Copies;
  Printer()->BeginDoc();
 
  if(printDialog->PrintRange == prPageNums)
  {
   startPage = printDialog->FromPage;
   endPage   = printDialog->ToPage;
  }
  else
  {
   startPage = 1;
   endPage   = TOTAL_PAGES;
  }
  // Установка номера начальной страницы
  page = startPage;
  // Продолжаем печатать пока всё OK
  while(!Printer()->Aborted && Printer()->Printing)
  {
   // Пишем номер страницы
   Printer()->Canvas->Font->Color = clBlue;
   Printer()->Canvas->TextOut(40,  20, "Номер страницы = "+IntToStr(page));
 
    // Увеличиваем номер страницы
    page++;
 
    // Теперь начинаем новую страницу - если она не последняя
    if(page <= endPage && !Printer()->Aborted)
     Printer()->NewPage();
   }
   // Конец печати
   Printer()->EndDoc();
 }
 delete printDialog;
}

if(PrintDialog1->Execute()){
  Printer()->BeginDoc();
  for(int i = 0; i < Memo1->Lines->Count; i++)
  {
  //а вот тут я толком не могу понять что мне надо написать 
  }
  Printer()->EndDoc();
  }

Printer()->BeginDoc();
 Printer()->Canvas->Font->Pitch=fpFixed;
 for(int i = 0; i < Memo1->Lines->Count; i++)
 {
  Printer()->Canvas->TextOut(200, 200 +
  (i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])), Memo1->Lines->Strings[i]);
 }
 Printer()->EndDoc();

Printer()->BeginDoc();
 Printer()->Canvas->Font->Pitch=fpFixed;
 for(int i = 0; i < Memo1->Lines->Count; i++)
 {
  Printer()->Canvas->TextOut(200, 200 +
  (i*Printer()->Canvas->TextHeight(Memo1->Lines->Strings[i])),
  IntToStr(i+1)+" "+Memo1->Lines->Strings[i]);
 }
 Printer()->EndDoc()

RichEdit1->Print("Печать");

Printer()->Orientation

    if(PrintDialog1->Execute())
    {
        TPrinter *Printer1=Printer();
        int LOff, TOff, ROff, BOff;
        int XRes, YRes, XOffs, YOffs;
        //set your needed values in milimeters
        LOff=PageSetup1->Dialog->MarginLeft/100;
        TOff=PageSetup1->Dialog->MarginTop/100;
        ROff=PageSetup1->Dialog->MarginRight/100;
        BOff=PageSetup1->Dialog->MarginBottom/100;
        //Get printer data
        XOffs=GetDeviceCaps(Printer1->Handle, PHYSICALOFFSETX); //minimum Left offset
        YOffs=GetDeviceCaps(Printer1->Handle, PHYSICALOFFSETY); //minimum Top offset
        XRes=GetDeviceCaps(Printer1->Handle, LOGPIXELSX); //points per inch in X
        YRes=GetDeviceCaps(Printer1->Handle, LOGPIXELSY); //points per inch in Y
        //Change Your values to printer Units
        LOff=SimpleRoundTo(LOff*XRes/25.4,0)-XOffs; //of course You can't set margins less than min offset !!!
        TOff=SimpleRoundTo(TOff*YRes/25.4,0)-YOffs; //of course You can't set margins less than min offset !!!
        ROff=Printer1->PageWidth-SimpleRoundTo(ROff*XRes/25.4,0)-XOffs; //changing to width, not offset !!!
        BOff=Printer1->PageHeight-SimpleRoundTo(BOff*YRes/25.4,0)-YOffs; //changing to height, not offset !!!
        //RichEdit
        RichEdit1->PageRect=Rect(LOff,TOff,ROff,BOff);
        RichEdit1->Print(Application->Title);
    }