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

   if not Open(_Data,ifmRead, false) then exit;