void __fastcall TForm1::SystemDruckenClick(TObject *Sender)
{
  if(PrintDialog1->Execute())
  {

  }

  TPrinter *Prntr = Printer();

  TRect r = Rect(200,200,Prntr->PageWidth - 200,Prntr->PageHeight- 200);              //120
  Prntr->BeginDoc();

  for( int i = 0; i < Liste->RowCount-1; i++)
  {
  Prntr->Canvas->TextOut(210,(400 * i) + 200 + (i *Prntr->Canvas->TextHeight("Essen: " + Liste->Cells[0][i+1])), "Essen: " + Liste->Cells[0][i+1]);

  Prntr->Canvas->TextOut(210,(400 * i) + 300 + (i *Prntr->Canvas->TextHeight("Symptome: " + Liste->Cells[1][i+1])), "Symptome: " + Liste->Cells[1][i+1]);

  Prntr->Canvas->TextOut(210,(400 * i) + 400 + (i *Prntr->Canvas->TextHeight("Datum: " + Liste->Cells[2][i+1])), "Datum: " + Liste->Cells[2][i+1]);

  Prntr->Canvas->TextOut(210,(400 * i) + 500 + (i *Prntr->Canvas->TextHeight("Inhaltsstoffe: " + inhaltsstoffe[i])), "Inhaltsstoffe: " + inhaltsstoffe[i]);

  Prntr->Canvas->TextOut(210,(400 * i) + 600 + (i *Prntr->Canvas->TextHeight("-----------------------------------------------------")), "-----------------------------------------------------");
  }

  Prntr->Canvas->Brush->Color = clBlack;
  Prntr->Canvas->FrameRect(r);
  Prntr->EndDoc();
}

i.A. ist der Textinhalt von inhaltsstoffe, länger als die Zeile auf dem Blatt lang ist. Habt ihr eine Idee wie ich es dann auf die nächste Zeile ausweiten kann?