#pas
public
    _prop_FileName:string;

    _data_FileName:THI_Event;
    ...
    {[b]}_data_ReplaceStr:THI_Event;{[/b]}
    ...
    _event_onGetIndex:THI_Event;
    _event_onGetString:THI_Event;

#pas
procedure THIStrList._work_doReplace;
var   ind:integer;
begin
   ind := ToIntIndex(_Data);
   if (ind < 0) or (ind > FList.Count - 1) then exit;
   FList.Delete(ind);
   FList.Insert(ind, ReadString(_Data, {[b]}_data_replacestr{[/b]}, '));   
   _hi_CreateEvent(_Data, @_event_onChange);