Richtiger Weg Text von einem Ausdruck zu vergrößern

[florpp]

Delphi-Quellcode:

with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
      Canvas.Brush.Style := bsClear;
      Canvas.Font.Height := 200; //<- 
for i := 0 to Form4.Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(Form4.Memo1.Lines.Strings[i])),
                   Form4.Memo1.Lines.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;

:gruebel: Das Programm macht zwar was ich will aber:

:arrow: Bei Canvas.Font.Height := 200; ist Font und Height unterringelt. Warum???

:arrow: Ist das der richtige Weg Text von einem Ausdruck zu vergrößern, oder gibt es einen besseren???