TTabControl no ordena los datos de la TDBGrid
 

Hola.

Estoy haciendo una agenda, y no logro que las tabs de un TTabControl ordenen los contactos que tengo una TDBGrid.

En el evento OnChange del TTabControl usé un case:

Código Delphi [-]
procedure TContacto.TC_ContactoChange(Sender: TObject);
begin
  case TC_Contacto.TabIndex of
    0: begin
      Modulo.Q_Contacto.Close;
      Modulo.Q_Contacto.SQL.Clear;
      Modulo.Q_Contacto.SQL.Add('select * from CONTACTO order by NOMBRE_CONTACTO');
      Modulo.Q_Contacto.Open;
    end;
    1: begin
      Modulo.Q_Contacto.Close;
      Modulo.Q_Contacto.SQL.Clear;
      Modulo.Q_Contacto.SQL.Add('select * from CONTACTO order by TELEFONO_CONTACTO');
      Modulo.Q_Contacto.Open;
    end;
    2: begin
      Modulo.Q_Contacto.Close;
      Modulo.Q_Contacto.SQL.Clear;
      Modulo.Q_Contacto.SQL.Add('select * from CONTACTO order by DIRECCION_CONTACTO');
      Modulo.Q_Contacto.Open;
    end;
    3: begin
      Modulo.Q_Contacto.Close;
      Modulo.Q_Contacto.SQL.Clear;
      Modulo.Q_Contacto.SQL.Add('select * from CONTACTO order by EMAIL_CONTACTO');
      Modulo.Q_Contacto.Open;
    end;
  end;
end;

Al ejecutar el programa, y apretar las tabs, no pasa nada.

Espero que me puedan dar una mano.

Gracias.

Ejecuta paso a paso y coloca un breakpoint al entrar en el procedimiento.
¿Pasa por ahí?
¿Cuando pasa qué valor tiene TabIndex?