DBRadioGroup - Urgente

Ola pessoal.     O meu problema é o seguinte, tenho um form de Fornecedores e tem o componente DBRadioGroup vinculado a minha DataSource DS_Fornecedores, a questão é o seguinte quando eu escolho uma das opeções (Fisica ou Juridica) gravo e quando vou fechar aparece a seguinte menssagem de erro (List index out of bounds (-1)) sen do que o componente esta configurado da seguinte forma.   * CONFIGURAÇÃO DO COMPONENTE   DataSource: DM.DS_Fornecedores DataField: FIS_JUR Items: (&Física  &Juridíca ) Values: (F J)   * NO EVENTO ON CLICK ESTA ASSIM     CASE RgTipo.ItemIndex OF
  0:
  BEGIN
    // PESSOA FISICA
    Label3.Caption:= 'CPF';
    Label4.Caption:= 'RG';
    DBEdit16.Visible:= True;
    DBEdit17.Visible:= True;
    DBEdit3.Visible:= False;
    DBEdit4.Visible:= False;
  END;   1:
  BEGIN
    // PESSOA JURIDICA
    Label3.Caption:= 'CNPJ';
    Label4.Caption:= 'IE';
    DBEdit16.Visible:= False;
    DBEdit17.Visible:= False;
    DBEdit3.Visible:= True;
    DBEdit4.Visible:= True;
  END;
  END;   sem os parentes correto! rsrsrs   O que devo fazer para não aparecer mais essa menssagem de erro ?     Obrigado a todos.