Im druck Zeilenumbruch erzwingen

[m-werk]

Hallo,

ich bin gerade dabei, einen Druck-Button zu realisieren. Soweit funktioniert schon mal alles bis auf eine Sache.

In meiner DB habe ich ein Memo-Feld, wo einiges eingetragen werden kann. Das Problem ist der Druck. Wie kann ich einen Zeilenumbruch hier (Im Code unten unter Anmerkung) erzwingen?

Code:

procedure TForm1.BtnPrintClick(Sender: TObject);
var rec : TRect;
begin
if PrintDialog1.Execute then
  begin
    rec.Left := 400;
    rec.Top := 1150;
    rec.Right := 3000;
    rec.Bottom := 3000;
    Printer.BeginDoc;
    Printer.Canvas.Font.Size:=10;
    Printer.Canvas.TextOut(3500,200,DateTimeToStr(now));
    Printer.Canvas.Font.Size:=12;
    Printer.Canvas.Font.Style:=[fsBold];
    Printer.Canvas.TextOut(400,200,ADOQuery1.FieldValues['Nachname']);
    Printer.Canvas.TextOut(1500,200,ADOQuery1.FieldValues['Vorname']);
    Printer.Canvas.Font.Style:=[];
    Printer.Canvas.TextOut(400,350,ADOQuery1.FieldValues['Adresse']);
    Printer.Canvas.TextOut(1500,350,ADOQuery1.FieldValues['Ort']);
    Printer.Canvas.Font.Style:=[fsUnderline];
    Printer.Canvas.TextOut(400,600,'Telefon:');
    Printer.Canvas.Font.Style:=[];
    Printer.Canvas.TextOut(400,750,ADOQuery1.FieldValues['Telefon1']);
    Printer.Canvas.TextOut(1500,750,ADOQuery1.FieldValues['Telefon2']);
    Printer.Canvas.TextOut(2500,750,ADOQuery1.FieldValues['Telefon3']);
    Printer.Canvas.Font.Style:=[fsUnderline];
    Printer.Canvas.TextOut(400,1000, 'Beschreibung:');
    Printer.Canvas.Font.Style:=[];
    Printer.Canvas.TextRect(Rec,400,1150,ADOQuery1.FieldValues['Anmerkung']);
  end;
  Printer.EndDoc;
end;