procedure THIini.Open;
begin
   Result := false;
   Ini := OpenIniFile(ReadFileName(ReadString(_Data,_data_FileName,_prop_FileName)));
   Ini.Section := ReadString(_Data,_data_Section,_prop_Section);
   if Ini.Section = '' then exit; 
   //	ifmRead - флаг для чтения; ifmWrite - флаг для записи
   Ini.Mode := ifm;
   Result := true;
end;

procedure THIini._work_doSectionNames;
var StrList:PStrList;
    I:integer;
begin
TRY
   if not Open(_Data,ifmRead) then exit;
   StrList := NewStrList;
   Ini.GetSectionNames(strList);
   for i := 0 to strList.Count-1 do
     _hi_OnEvent(_event_onSectionNames,strList.Items[i]);
   strList.free;
FINALLY
   Ini.Free;
END;   
end;