Delphi - объединение PageControl и MainMenu

[dagon81]

Есть событие объединяющие пейджконтрол и мейнменю.



procedure TForm1.PageControl1Change(Sender: TObject);

begin

if PageControl1.ActivePageIndex = 0 then N23.Visible := True else N23.Visible := False;

if PageControl1.ActivePageIndex = 1 then N24.Visible := true else N24.Visible := False;

if PageControl1.ActivePageIndex = 2 then N25.Visible := True else N25.Visible := False;

end;



Подскажите как уменьшить код или упростить его. Не селен в делфи.

[opel431]

N23.Visible := PageControl1.ActivePageIndex = 0;

N24.Visible := PageControl1.ActivePageIndex = 1;

....

[dagon81]

То что нужно, огромное спасибо.