[resolvido] Outra Duvida Com Radiogroup

[vms]

estou com a seguinte duvida

queria execultar varios comandos com o Radiogroup ("dessa forma")

procedure TFMercadoria.RadioGroup7Click(Sender: TObject);
begin
 case RadioGroup7.ItemIndex of 1:
  DBGridPesquisa.DataSource:= DM.DtsQryMercadoria_NOME
   DBNavigator2.DataSource:= DM.DtsQryMercadoria_NOME
    BitBtn3.Visible:=false;
     BitBtn5.Visible:=true;
 else
  DBGridPesquisa.DataSource:=DM.DtsQryMercadoria_COD
   DBNavigator2.DataSource:=DM.DtsQryMercadoria_COD
    BitBtn5.Visible:=false;
     BitBtn3.Visible:=true;

 end;
end;

se coloco apenas um comando, dar certo como esse.

procedure TFMercadoria.RadioGroup7Click(Sender: TObject);
begin
 case RadioGroup7.ItemIndex of 1:
  DBGridPesquisa.DataSource:= DM.DtsQryMercadoria_NOME
 else
   DBGridPesquisa.DataSource:=DM.DtsQryMercadoria_COD
 end;
end;

mas não consigo execultar varios comandos

alguém pode me ajudar?

Editado Agosto 29, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Jhonas]

Para executar mais de um comando, voce deve usar begin end; na rotina

procedure TFMercadoria.RadioGroup7Click(Sender: TObject);
begin
case RadioGroup7.ItemIndex of
 1:begin
       DBGridPesquisa.DataSource:= DM.DtsQryMercadoria_NOME;
       DBNavigator2.DataSource:= DM.DtsQryMercadoria_NOME;
       BitBtn3.Visible:=false;
       BitBtn5.Visible:=true;
   end;

 2:begin
       DBGridPesquisa.DataSource:=DM.DtsQryMercadoria_COD;
       DBNavigator2.DataSource:=DM.DtsQryMercadoria_COD;
       BitBtn5.Visible:=false;
       BitBtn3.Visible:=true;
    end;
 end;
end;

[vms]

deu certo. valeu!