Seitenreiter bei TPageControl ausblenden?

[smart]

Wie lassen sich die Seitenreiter bei TPageControl ausblenden?

Delphi-Quellcode:

Var I : Integer;
begin
 with PageControl1.Pages[0] do
  For I := 0 to ControlCount-1 do
   Controls[I].Visible := False;
end;

geht nicht!