Вывод текста на принтер

На форме расположены: TMemo (Memo1), TPrintDialog (PrintDialog1) и TButton (PrintButton).

procedure TForm1.PrintButtonClick(Sender: TObject);
var
  POutput: TextFile;
  k: Integer;
begin
  if PrintDialog1.Execute then
  begin
    AssignPrn(POutput);
    Rewrite(POutput);
    Printer.Canvas.Font.Name := 'Courier New';
    Printer.Canvas.Font.Size := 8;
    // Здесь выводим любые свои строки
    Writeln(POutput,'1 строка');
    Writeln(POutput,'2 строка');
    Writeln(POutput,'3 строка');
    // а это уже вывод строк из TMemo
    for k := 0 to Memo1.Lines.Count - 1 do
      Writeln(POutput, '     ' + Memo1.Lines[k]);
    CloseFile(POutput);
  end;
end;