procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile(f, 'LPT1');
Rewrite(f);
WriteLn(f, ' Delphi Software Online');
WriteLn(f, 'internetes hetilap példaprogram');
WriteLn(f, ' http://www.animare.hu/dso/');
CloseFile(f);
Printer.BeginDoc;
Printer.EndDoc;
end;