#pas
procedure THIini._work_doWrite;
var key: string;
begin
   Open(_Data,ifmWrite);
   key := ReadString(_Data,_data_Key,_prop_Key); 
   if _prop_Type = 0 then
     Ini.ValueInteger(key, ReadInteger(_Data,_data_Value,0))
   else
     Ini.ValueString(key, ReadString(_Data,_data_Value,''));
   Ini.Free;
end;