Memo Drucken

[TarantelFaser47]

Hi,
ich versuche gerade mich in das Drucken einzuarbeiten und bin auf ein Problem gestoßen.

Code:

procedure TForm1.Button2Click(Sender: TObject);
var i,y : Integer;
begin


  Printer.BeginDoc;
  Printer.NewPage;

  for i := 0 to memo1.Lines.Count do
   begin
    inc(y,5);
    Printer.Canvas.TextOut(2,y,memo1.Lines[i]);
   end;

  Printer.EndDoc;
end;

Wie hier zu sehen ist, versuche ich alle Zeilen eines Memos genau so auszudrucken wie sie, sozusagen, auf dem Bildschirm zu sehen sind (also untereinander).
Es werden auch keine Fehlermeldungen angezeigt, aber auf dem Papier, welches dann aus dem Drucker kommt ist auch nichts drauf .
Ich komme leider nicht dahinter was daran falsch ist ...

Danke für jede Hilfe