RibbonPage and Panel

[malkhazibb]

Здравствуите форумчане.

Помогите пожалуста с компоненто.

На форме лежат Ribbon1, соответственно RibbonPage1, RibbonPage2, RibbonPage3. А также Panel1 , Panel2 и Panel3.

Вопрос?
Как сделат чтоб при активации RibbonPage1 активировалас Panel1 а при переходе RibbonPage2 активировалас Panel2 и т.д.


Помогите очен нужно.

[malkhazibb]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Visible:=True;
 Panel2.Visible:=False;
 Panel3.Visible:=False;
end;

procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);
begin
if Ribbon1.TabIndex=0 then
begin
 Panel2.Visible:=True;
 Panel1.Visible:=False;
 Panel3.Visible:=False;
 end
 else
  begin
   if Ribbon1.TabIndex=1 then
   begin
   Panel3.Visible:=True;
   Panel1.Visible:=False;
   Panel2.Visible:=False;
   end
     else
     begin
     if Ribbon1.TabIndex=2 then
      begin
      Panel1.Visible:=True;
      Panel2.Visible:=False;
      Panel3.Visible:=False;
     end;
  end;
end;
 end;

[malkhazibb]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Visible:=True;
 Panel2.Visible:=False;
 Panel3.Visible:=False;
end;

procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);
begin
if Ribbon1.TabIndex=0 then
begin
 Panel2.Visible:=True;
 Panel1.Visible:=False;
 Panel3.Visible:=False;
 end
 else
  begin
   if Ribbon1.TabIndex=1 then
   begin
   Panel3.Visible:=True;
   Panel1.Visible:=False;
   Panel2.Visible:=False;
   end
     else
     begin
     if Ribbon1.TabIndex=2 then
      begin
      Panel1.Visible:=True;
      Panel2.Visible:=False;
      Panel3.Visible:=False;
     end;
  end;
end;
 end;