Recorrer Page Control

[Jere_84]

Hola, estoy haciendo un procedure que valida campos vacíos recorriendo los componentes del Form y haciendo foco en el TDBEdit cuando esta vació. El problema surge si el componente se encuentra dentro de un TPageControl y hay que hacer el Set focus cuando Tab del PageControl no esta en foco.

Alguien sabe como podría obtener los componentes hijos y que frene cuando lo encuentre o algo así?

Slds.

Código Delphi [-]
for a:=0 to TJfPageControl(vForm.Components[i]).Tabs[a].Index do
begin
 // detener en la pagina donde esta el TDbedit
end;