uses Printers;procedure PrintText(Text: string);begin with Printer do begin BeginDoc; Canvas.TextOut(5, 50, Text); EndDoc; end;end;