[dec]

Hola,

Acaso no te parezca mal esta otra forma de hacer lo que dices:

Código Delphi [-]
var
  i: integer;
begin
  for i := 0 to TabbedNotebook1.Pages.Count-1 do
    ShowMessage(TabbedNotebook1.Pages[i]);
end;