*.pas
...
delete(s,1,3);
dtInteger(d, str2int(s));
AddMTData(@dt, @d, f);
_hi_OnEvent(_event_onSearch, dt);

*.ini
...
onSearch=Событие происходит всякий раз после нахождения очередного устройства и выдает его параметры в поток (Name)|2|0
onNumber=Событие происходит всякий раз после нахождения очередного устройства и выдает его параметры в поток (#Port)|2|0
----------------------------------
*.pas
...
_event_onNumber:THI_Event;
...
s := kol.RegKeyGetStr(hk, 'PortName');
delete(s,1,3);
dtInteger(d, str2int(s));
_hi_OnEvent(_event_onSearch, dt);
_hi_OnEvent(_event_onNumber, d);
...