Zeichensatz bei QuickReport

[remie]

Mit dem Font mach ich eigentlich garnix das is ja das lustige an der geschichte ich fülle eigentlich nur Meine 2 memos und die Positionen

Delphi-Quellcode:

    Qrmemo1.Lines.Text := '';
    Qrmemo2.Lines.Text := '';
    QrLabel9.Caption  := suchenpreis1.asString;
    QRLabel10.Caption := suchenpreis1.AsString;
    if suchenmahnstufe.Value = 1 then QRLabel11.Caption := FloattoStr(db.preis1)
    else if suchenmahnstufe.Value = 2 then QRLabel11.Caption := FloattoStr((Mahngebuer1+Mahngebuer2))
         else if suchenmahnstufe.Value = 3 then QRLabel11.Caption := FloatToStr((Mahngebuer1+Mahngebuer2+Mahngebuer3))
                else QrLabel11.Caption := '0';
    QRLabel13.Caption := FloattoStr(StrtoFloat(QRLabel9.Caption)+StrToFloat(QRLabel10.Caption)+StrToFloat(QRLabel11.Caption));
    QRLabel9.Caption := Format('%8.2f',[suchenbetrag.Value]);
    QRLabel10.Caption := Format('%8.2f',[StrToFloat(QRLabel10.Caption)]);
    QRLabel11.Caption := Format('%8.2f',[StrToFloat(QRLabel11.Caption)]);
    QRLabel13.Caption := Format('%8.2f',[StrToFloat(QRLabel13.Caption)]);
    QRLabel9.Caption  := Qrlabel9.Caption+' EURO';
    QRLabel10.Caption := Qrlabel10.Caption+' EURO';
    QRLabel11.Caption := Qrlabel11.Caption+' EURO';
    QRLabel13.Caption := QrLabel13.Caption+' EURO';

    QrLabel4.Caption  := Multilang1.GetTextEx('@posten',a);
    QrLabel5.Caption  := Multilang1.GetTextEx('@preis',a);
    Qrlabel6.Caption  := Multilang1.GetTextEx('@ausstaende',a);
    Qrlabel7.Caption  := Multilang1.GetTextEx('@mahngbr',a);
    Qrlabel8.Caption  := Multilang1.GetTextEx('@inkassogbr',a);
    Qrlabel12.Caption := Multilang1.GetTextEx('@summe',a);
    Qrlabel6.Caption  := Qrlabel6.Caption+suchenbuchungsnr.AsString;

// Dan lade ich die Texte für die Memos aus der DB und schreib sie ins Memo das Wars