evento OnTabChange del componente Ribbon

[cl2raul]

Hola amigos del foro... estoy utilizando Ribbon para una aplicación q estoy desarrollando, vi unos manuales de Ribbon combinado con ActionManager, pero me pareció muy complejo y no me daban muchas opciones de diseño por lo que decidí eliminar el ActionManager y colocar los componentes directamente en Ribbon... todo ok hasta ahora, quiero q cuando seleccione una pestaña(Tab o RibbonPage) me cambie el caption de Ribbon por el agregando el caption del RibbonPage seleccionado... trate de usar el evento OnTabChange de Ribbon pero el resultado es que me devuelve el nombre del RibbonPage q estaba activado no el q seleccione:

Código Delphi [-]
procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);
begin
  case Ribbon1.TabIndex of
    0:begin
        DBGrid1.Visible:=True;
        ContaArea.Visible:=False;
        AdminArea.Visible:=False;
      end;
    1:begin
        DBGrid1.Visible:=False;
        ContaArea.Visible:=True;
        AdminArea.Visible:=False;
      end;
    2:begin
        DBGrid1.Visible:=False;
        ContaArea.Visible:=False;
        AdminArea.Visible:=True;
      end;
  end;
end;