#pas
procedure THIini._work_doClearAll;
var iniFile: File;
begin
   AssignFile(iniFile, ReadString(_Data,_data_FileName,_prop_FileName));
   ReWrite(iniFile);
   CloseFile(iniFile);
   Open(_Data,ifmWrite);
   Ini.ClearAll;
   Ini.Free;
end;