Impresión con Canvas en Delphi 6

[delphi.com.ar]

Algo tan sencillo como esto te sirve??

    with Printer do
    begin
      BeginDoc;
      Canvas.TextOut(10, 10, 'Hola Mundo!');
      EndDoc;
    end;