DB is not open

procedure Tf_vhod.BitBtn2Click(Sender: TObject);
var
  FIniFile: TIniFile;
  temp :integer;
begin
  f_ned.IBTransaction1.Active:=false;
  f_ned.IBTransaction1.Active:=true;
 
  f_ned.IBQuery1.Close;
  f_ned.IBQuery1.SQL.Clear;
 
//подготовка и подключение к базе данных
f_ned.IBDatabase1.Connected:=false;
f_ned.IBDatabase1.DatabaseName:='';
f_ned.IBDatabase1.Params.Clear;
f_ned.IBDatabase1.LoginPrompt:=false;
  FIniFile :=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
    f_ned.IBDatabase1.DatabaseName:=FIniFile.ReadString('Base', 'Path', '');;
      with f_ned.IBDatabase1 do
       begin
         Params.Add('user_name=sysdba');
         Params.Add('password=masterkey');
         Params.Add('lc_ctype=WIN1251');
       end;
  f_ned.IBDatabase1.Connected:=true;
 
        if ((Ed1.Text='') and (Ed2.Text='')) then
          begin
            ShowMessage('Необходимо заполнить все поля');
            Exit;
          end
        else
          begin
            f_ned.IBQuery1.SQL.Text:='select * from SP_AVTORIZATION ('+QuotedStr(Ed1.Text)+
                                ', '+QuotedStr(Ed2.Text)+')';
            f_ned.IBQuery1.Open;
            temp:=f_ned.IBQuery1.FieldByName('REZ').AsInteger;
              if (temp<>0) then
                begin
                  f_ned.Show;
                  f_vhod.Visible:=false;
                end
              else
                begin
                  Application.MessageBox('Неправильно введен логин и пароль', 'Ошибка', MB_OK+MB_iconerror);
                end;
          end;
end;
    procedure Tf_vhod.Ed1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
BitBtn2.Click;
end;
 
end.

procedure Tf_reg.BitBtn1Click(Sender: TObject);
var
  FIniFile: TIniFile;
begin
  FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'config.ini');
  try
  f_ned.IBDatabase1.DatabaseName := FIniFile.ReadString('Base', 'Path', '');
  finally
  FInifile.Free;
  end;
  f_ned.IBDatabase1.Connected :=true;
  f_ned.IBTransaction1.Active:=false;
  f_ned.IBTransaction1.Active:=true;
 
  f_ned.IBQuery1.Close;
  f_ned.IBQuery1.SQL.Clear;
  f_ned.IBQuery1.SQL.Add('INSERT INTO POLSOVATEL (U_SURNAME, U_FIRSTNAME, U_LASTNAME,'+
                    ' U_LOGIN, U_PASSWORD)');
  f_ned.IBQuery1.SQL.Add('values ('+QuotedStr(Ed1.Text)+', '+QuotedStr(Ed2.Text)+
                            ', '+QuotedStr(Ed3.Text)+', '+QuotedStr(Ed5.Text)+
                            ', '+QuotedStr(Ed6.Text));
 try
  f_ned.IBQuery1.ExecSQL;
  f_ned.IBtransaction1.CommitRetaining;
except
  f_ned.IBtransaction1.RollbackRetaining;
  Application.MessageBox('Не могу сохранить','Ошибка', MB_OK+MB_ICONERROR);
 
end;
f_reg.Close;
f_vhod.Show;
end;