#pasprocedure THIini._work_doClearAll;begin DeleteFile(ReadString(_Data,_data_FileName,_prop_FileName));end;