Bueno, yo detecto varias cosillas, primero:
Código Delphi
[-]
vComponente:= TDbEdit(vForm.Components[i]).GetParentComponent; <---- aqui
el parent de un dbedit en un pagecontrol es un TTabSheet, y despues el pagecontrol...
otra, la linea de codigo hace un cast inutil, porque da lo mismo si fuera asi:
Código Delphi
[-]
vComponente:= vForm.Components[i].GetParentComponent;
vComponente:= vForm.Components[i].GetParentComponent.GetParentComponent;
yo pienso que el error de la incompatibilidad es en esta linea:
Código Delphi
[-]
for a:= 0 to vComponente.Tabs.Count - 1 do
porque vComponente es del tipo Component, no TPageControl, aqui si, hay que hacer el Cast...