[Страдалецъ]

В принципе так наверное:

Код:

procedure TForm28.Ribbon1TabChange(Sender: TObject; const NewIndex, OldIndex: Integer; var AllowChange: Boolean);
begin
 case NewIndex
 of 0: Panel1.SetFocus;
    1: Panel2.SetFocus;
    2: Panel3.SetFocus;
 end;
end;

Но тут есть один момент. Компонент TPanel никак свою активность визуально не проявляет, но доступ к контролам на активной панели вы конечно получите таким путем.