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