Печать из memo как можно проще

[NecroSlider]

Здравствуйте, вопрос такой:
хочу печатать вот таким способом:

procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
  end;

процедуру вызываю вот так:

PrintStrings(Memo1.Lines);

В итоге все хорошо печатается, но мелко, подскажите как указать принтеру шрифт побольше не прибегая к громоздким методам? Программа очень маленькая и будет использоваться для расчетов, а печать должна осуществляться нажатием на кнопочку печать и ничем более. Нужный принтер в системе будет установлен по умолчанию.

[AlDelta]

printer.font.Size

[NecroSlider]

Пасиб, только чуток не так. Вот как прально:

printer.Canvas.Font.Size:=16;