XE7 - ZintBarcode Exception

[canoniac]

Au...in meinen Projekten ist es natürlich erzeugt.

Delphi-Quellcode:

procedure THauptForm.FormCreate(Sender: TObject);
var
    MyBitmap      :TBitMap;
    MyBarcode     :TZintBarcode;

begin
  //BarCode zeichnen ***********************************************************
  MyBarcode := TZintBarcode.Create;
  MyBitmap  := TBitMap.Create;
  MyBarcode.Clear;
  MyBarcode.Data := '00340311640213278478';
  MyBarcode.BarcodeType := tBARCODE_CODE128;
  MyBarcode.Option3     := 100;
  MyBarcode.Scale       := 1;
  MyBarcode.GetBarcode(MyBitmap);
//  MyCanvas.Draw(0,0,MyBitmap);
  //****************************************************************************

end;

[haentschman]

Hallöle...

Delphi-Quellcode:

myBmp.Free;
myZintBarcode.Free;

...wie es schon Rollo62 sagte. ( erinnert mich immer an https://de.wikipedia.org/wiki/Wilde_Kreaturen)