[malkhazibb]

Спасибо Страдалецъ за отзив.
В место NewIndex я писал какую то чипуху (процедуру).

получилос так (для таких чаиников как я)

Код:

procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);

begin
  case NewIndex of
   0: begin
      Panel1.Visible:=True;
      Panel2.Visible:=False;
      Panel3.Visible:=False;
      end;
   1: begin
      Panel2.Visible:=True;
      Panel1.Visible:=False;
      Panel3.Visible:=False;
      end;
   2: begin
      Panel3.Visible:=True;
      Panel1.Visible:=False;
      Panel2.Visible:=False;
      end;
 end;
 end;

Ешо раз спасибо мучался почти четире дня.