procedure THIini._work_doClearAll;
var StrList:PStrList;
    I:integer;
begin
   Ini := OpenIniFile(ReadFileName(ReadString(_Data,_data_FileName,_prop_FileName)));
   Ini.Mode := ifmRead;
   StrList := NewStrList;
   Ini.GetSectionNames(strList);
   Ini.Mode := ifmWrite;
   for i := 0 to strList.Count-1 do
   begin
     Ini.Section := strList.Items[i];
     Ini.ClearSection;
   end;  
   strList.free;
   Ini.Free;
end;