подключение фр спарк от ккс : УКМ WIN

procedure TForm1.FormCreate(Sender: TObject);
begin
  m_Spark:= CoSpark115F.Create;
end;

procedure TForm1.Connect(Sender: TObject);
var
  IDDevice, bstrVersion: WideString;
  Res, Rezultat, Port, Speed: Integer;

begin
//  m_Spark.OdinS_SetParameter('EquipmentType', 'ККТ', Rezultat);

  Res:= m_Spark.OdinS_GetVersion(bstrVersion);

  InfVer.Caption:= bstrVersion;

  Port:= StrToInt(nPort.Text);
  Speed:= StrToInt(tSpeed.Text);

  m_Spark.OdinS_SetParameter('Port', Port, Rezultat);
  m_Spark.OdinS_SetParameter('Speed', Speed, Rezultat);
  m_Spark.OdinS_SetParameter('Password', '111111', Rezultat);

  Res:= m_Spark.OdinS_Open(IDDevice, Rezultat);
end;