#pas
procedure THIStrList._work_doGetString;
begin
   FString := FList.Items[ReadInteger(_Data, _data_IdxToSelect)]; 
   FIndex :=  FList.IndexOf(FString);
   _hi_CreateEvent(_Data, @_event_onGetString, FString);
end;