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;

Das Programm macht zwar was ich will aber:

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

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