procedure THIini.Open;
begin
   Result := false;
   Ini := OpenIniFile(ReadFileName(ReadString(_Data,_data_FileName,_prop_FileName)));
   Ini.Section := ReadString(_Data,_data_Section,_prop_Section);
   if Ini.Section = '' then exit; 
   //	ifmRead - флаг для чтения; ifmWrite - флаг для записи
   Ini.Mode := ifm;
   Result := true;
end;