На Делфи 10 зависает драйвер Атол - Delphi - Ответ 13244866

constructor TKKM.Create;
const
  ModuleName = 'TKKM.Create';
var
  PCD: TStringList;
 
  procedure SetKKMParam(PCD: TStringList; ParamName: string);
  const
    ModuleName = 'TKKM.Create.SetKKMParam';
  var
    ParamValue: string;
    ParamValueInt: Integer;
  begin
    ParamValue := PCD.Values[ParamName];
    ParamValueInt := StrToInt(ParamValue);
    if AnsiCompareStr(ParamName, 'PortNumber') = 0 then
    begin
      KKM_DRV.PortNumber := ParamValueInt;
      Exit;
    end;
 
    if AnsiCompareStr(ParamName, 'BaudRate') = 0 then
    begin
      KKM_DRV.BaudRate := ParamValueInt;
      Exit;
    end;
 
    if AnsiCompareStr(ParamName, 'Model') = 0 then
    begin
      KKM_DRV.Model := ParamValueInt;
      Exit;
    end;
  end;
 
begin
  inherited Create;
  try // загружаем ole-объект для работы с кассой
    KKM_DRV := CreateOleObject('AddIn.FPrnM8'); // было FPrnM45
    IsAlive:=true;
  except // что-то не получилось ...
    Application.MessageBox('TKKM.Create: Не удалось создать объект драйвера ККМ FPrnM8!', PChar(Application.Title), MB_ICONERROR + MB_OK);
    IsAlive:=False;
  end;
 
  KKM_DRV.TestMode := False;
 
  // необходимо для корректного отображения окон драйвера в контексте приложения
  KKM_DRV.ApplicationHandle := Application.Handle;
 
  // новое и единственное логическое устройство, с ним и работаем:
  if (KKM_DRV.DeviceCount = 0) then
    KKM_DRV.AddDevice;
   if not LogResultCode(ModuleName) then
       Exit;
 
  // параметры текущего устройства из реестра в массив строк
  PCD := TStringList.Create;
  ParamCurDev(PCD);
 
  // установить параметры у нашего логического устройства
  SetKKMParam(PCD, 'PortNumber');
  SetKKMParam(PCD, 'BaudRate');
  SetKKMParam(PCD, 'Model');
 
  if assigned(PCD) then
  PCD.Free;
end;