
var ECR :variant;

    procedure CreateWindow;  // Не знаю, что она делает, но так в драйвере. Без нее не переносятся строки
    var
      i :Integer;
    begin
        ECR.CreateWindow(0, 0, 1, ECR.DeviceColumns, 12, 20);
        for I := 1 to ECR.DeviceRows - 1 do
        begin
          ECR.AddViewPort(I, 0, 12, ECR.GetDeviceColumns(I));
        end;
        ECR.CurrentWindow := 0;
        ECR.DestroyWindow;
    end;
begin

 ECR := createoleobject('AddIn.Line45');

 ECR.DeviceEnabled := true;
 CreateWindow;
 ECR.ClearTExt;
 //ECR.DisplayText('12345678901234567890ТОВАР123456789012345',0);
 ECR.DisplayTextAt(0,0,'Строка 1',0);
 ECR.DisplayTextAt(1,0,'ТОВАР123456789012345',0);
 bvmessage(ECR.ResultDescription);
end.
