Delphi. Подключение фискального регистратора ATOL, STRICH-M

В связи с последними событиями связанными с массовым внедрением он-лайн касс, в сети (на фрилансе в частности) появилось много запросов от программистов. У нас это сделано в lazarus, но суть от этого не меняется. Используется подключение по COM к драйверу ККМ. Синтаксис у атола и штрих-м немного отличается, ознакомиться с примерами можно в примерах для атол- C:\Program Files\ATOL\Drivers8\Samples\FprnM\JScript.

Сам код полностью не привожу, тут все бурно меняется.

//создали объект
ECR := CreateOleObject(‘AddIn.FprnM45′);
ECR.ApplicationHandle := Application.Mainform.Handle;
//заняли порт
ecr.DeviceEnabled:=1;
//пароль кассира=1
pwd_kass:=’1’;

…………………………………………………………………………

Главное — это принцип, использование COM-объекта. Также можно посмотреть этот принцип в примере для 1С 7.7. И вообще, чем писать свой софт, может лучше Tandem7pi использовать ? Ключ к одной торговой точке — 2500 р. Количество рабочих мест в одной торговой точке не ограничено.