procedure TForm1.Button1Click(Sender: TObject);
var f : TextFile;
     s, oldFnt : string;
     i : Word;
begin
  Printer.PrinterIndex := -1; // Standarddrucker einstellen
  oldFnt := Printer.Canvas.Font.Name; // Druckerfont merken

  Printer.Canvas.Font.Name := 'Courier New';

  AssignPrn(f); // Textfile mit Drucker verbinden

  try
    Rewrite(f); // Textfile initialisieren
    Write(f, '' + #10);
    Write(f, 'N'+ #10);
    Write(f, 'A30,200,0,4,1,1,N,''' + 'TEXT'''+ #10);
    Write(f, 'B30,20,0,1,2,5,50,N,''' + 'BARCODE''' + #10);
    Write(f, 'P1'+ #10);

  finally
    CloseFile(f); // Textdatei schließen
    Printer.Canvas.Font.Name := oldFnt // Druckerfont zurücksetzen
  end;
end;