#pas
procedure THIStrList._work_doGetString;
  begin
     FIndex :=ReadInteger(_Data, _data_IdxToSelect);
     FString := FList.Items[FIndex];     
     if FString = ' then FIndex := -1;  //На всякий случай
   //FString := FList.Items[ReadInteger(_Data, _data_IdxToSelect)]; 
   //FIndex :=  FList.IndexOf(FString);
   _hi_CreateEvent(_Data, @_event_onGetString, FString);
  end;