Ayuda con PageControl

[dec]

Hola a todos,

Es raro: si pongo un "TPageControl" en un formulario y únicamente añado unas cuentas pestañas (sin tocar nada más), ya en tiempo de ejecución, el siguiente código modifica el "Caption" de las pestañas, adaptando el tamaño automáticamente, tal como esperas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  for var I := 0 to PageControl1.PageCount - 1 do
  begin
    PageControl1.Pages[i].Caption := 'aaaaaaa aaaaaa aaaaaaa';
  end;
end;