Problema ordenação em tabela com radio Group

Boa Noite, sou novo no forum, desculpe os erro.
Estou usando xe8+ib.

Meu problema é na parte de uma ordenação de uma tabela. Estou seguindo aa vídeo aulas do Neri Neitzke..
Este é o código que vi na videoaula, infelizmente ao clicar em qualquer um dos dois nada acontece. Ele teria que ordenar primeiro por código e no segundo por nome.
procedure TForm4.rdg1Click(Sender: TObject);
begin
case rdg1.ItemIndex of
0: dm_dados.lbCad_Cli.IndexName:= 'IND_COD_CLI';
1: dm_dados.lbCad_Cli.IndexName:= 'IND_NOME_CLI';
end;

end;


Criei os index no banco tmb.
Agradeço aos próximos.