2 Memos Drucken

[aerotech]

Hallo, ich habe auf meinem Delphi Formular 2 Memo Boxen, den Inhalt dieser Memos möchte ich drucken lassen, sobald mal einen bestimmten Button klickt.
Problem: Dieser Code ermöglicht es eine Memo drucken zu lassen und zwar "Memo1".
Frage: Wie bekomm ich jetzt hin, dass im Ausdruck der Inhalt der Memo2 direkt unter dem der Memo1 steht!? Dazwischen 4-5 x [Enter], dann aber der 2 Text....

versteht ihr wie ich meine!?

Wie muss der Code dafür aussehen!? Über Antwort würde ich mich sehr freuen. Vielen Dank!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 

var 
  r: TRect; 
  i: Integer; 
begin 
  with Printer do 
    begin 
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); 
      BeginDoc; 
      for i := 0 to Memo1.Lines.Count do 
       Canvas.TextOut(200,200 + (i * 
Canvas.TextHeight(Memo1.Lines.Strings[i])), 
                                   Memo1.Lines.Strings[i]); 
      Canvas.Brush.Color := clBlack; 
      Canvas.FrameRect(r); 
      EndDoc; 
    end; 

end;