Estou usando a tsclib.dll para imprimir etiquetas na Bematech LB-1000. Na procedure openport() já dá o erro Printer Driver is not been specified.

A impressora é local, porta USB e estou passando o nome dela como parâmetro dessa forma: 

openport('Bematech');

conforme explica o manual de instruções  da dll. Mas, mesmo seguindo as instruções, esse erro continua. Usando os próprios comandos da impressora, funciona normalmente. Acredito que o problema esteja realmente na dll.

Alguém já passou por esse problema e sabe como me ajudar?

código:

    unit Unit1;
    
    interface

    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, ExtCtrls;

    type
      TForm1 = class(TForm)
        GroupBox1: TGroupBox;
        Button1: TButton;
        Image1: TImage;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;

    implementation

    {$R *.DFM}
    {$R GenericLIB.RES}

    procedure openport(PrinterName:pchar);stdcall;far; external 'tsclib.dll';
    procedure closeport; external 'tsclib.dll';
    procedure sendcommand(Command:pchar);stdcall;far;external 'tsclib.dll';
    procedure setup(LabelWidth, LabelHeight, Speed, Density, Sensor, Vertical,             Offset:pchar);stdcall; far; external 'tsclib.dll';
    procedure downloadpcx(Filename,ImageName:pchar);stdcall;far;external     'tsclib.dll';
    procedure barcode(X, Y, CodeType, Height, Readable, Rotation, Narrow, Wide,     Code :pchar); stdcall; far; external 'tsclib.dll';
    procedure printerfont(X, Y, FontName, Rotation, Xmul, Ymul,     Content:pchar);stdcall;far; external 'tsclib.dll';
    procedure clearbuffer; external 'tsclib.dll';
    procedure printlabel(NumberOfSet, NumberOfCopoy:pchar);stdcall; far;external     'C:\Windows\System32\tsclib.dll';
    procedure formfeed;external 'tsclib.dll';
    procedure nobackfeed; external 'tsclib.dll';
    procedure windowsfont (X, Y, FontHeight, Rotation, FontStyle, FontUnderline : integer; FaceName, TextContect:pchar);stdcall;far;external 'tsclib.dll';

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;

    begin

      openport('Bematech');
            for i:=1 to 1 do
             begin
              clearbuffer;
              sendcommand('DIRECTION 1');
              windowsfont(10, 10, 30, 0, 2, 0, 'arial', 'Exemplo LB - 1000     Delphi - Bematech');
              barcode('10', '100', '128', '100', '1', '0', '2', '2', '1234567-    BEMATECH');
              printlabel('1', '1');
            end;
              closeport;


    end;

    end.