[NumLock]

но можно проще:

Код:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Panel1.Visible:=PageControl1.ActivePageIndex=0;
  Panel2.Visible:=PageControl1.ActivePageIndex=1;
  Panel3.Visible:=PageControl1.ActivePageIndex=2;
end;