Печать при помощи TPrinter

Экземпляр TPrinter (с именем Printer) создаётся автоматически, если добавить юнит Printers.

Пример:

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Printer.BeginDoc;
   Printer.Canvas.TextOut(100, 100, 'Hello World!');
   Printer.EndDoc;
end;