1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Drucken1Click(Sender: TObject);       //Quelle (verändert): http://www.delphi-treff.de/tipps/komponenten/trichedittmemotedit/inhalt-eines-memos-drucken/
var zeile,line: Integer;
  PrintText: TextFile; //Deklaration einer Dateivariablen
begin
  if PrintDialog1.Execute then begin
    // Zuweisung von PrintText an den Drucker
    AssignPrn(PrintText);
    Rewrite(PrintText); // Erzeugen und Öffnen der Ausgabedatei
    try
      // Zuweisung der eingestellten Schriftart an die Leinwand
      Printer.Canvas.Font := Memo1.Font;
      Printer.Canvas.MoveTo(30,30);
      for  Line := 0 to Memo1.Lines.Count - 1 do
        //Schreiben des Inhalts von Memo1 in das Druckerobjekt
        Writeln(PrintText, Memo1.Lines[Line]);
    finally
      CloseFile(PrintText); // Schließen der Druckervariablen
    end;
  end;
end;