#pas
procedure THiAsmClass.doWork(var _Data:TData; index:word);
var
  s: string; 
begin
  s := ReadString(_Data, Data1, ');
  UniqueString(s);
  CharLower(PChar(s));  
  _hi_OnEvent(onResult, s);
end;