1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeBarcodeImage(ConvertIntoBarcode(Edit1.Text)); //Erstellt einen Barcode in Image1...
  Image1.Canvas.Font.Color:=clBlack;
  Image1.Canvas.Font.Size:=8;
  Image1.Canvas.Font.Name:='FixedSys';
  with Image1.Canvas do begin
    TextOut(Image1.Width div 2 - (length(Edit1.Text)*4),70,Edit1.Text);
    Font.Name:='Verdana';
    TextOut(0,0,'TEST');
    TextOut(0,14,'DRUCK');
    TextOut(0,28,'TEST3452');
    Font.Color:=clLtGray;
    TextOut(0,Image1.Height-13,'BLABLABLA');
  end;
  Printer.BeginDoc;
  Printer.Canvas.Draw(0,120,Image1.Picture.Graphic);
  Printer.EndDoc;
end;