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