[Jere_84]

Empezado por Neftali

Prueba así:

Código Delphi [-]
var
    vComponente: TComponent;

...

        if (vComponente is TPageControl) then
        begin
          for a:= 0 to TPageControl(vComponente).Tabs.Count - 1 do
          begin
            .....

Gracias Neftali. Funciona.

Slds.