Как проверить принадлежность определённой странице PageControl?

[Serik2010]

Добрый вечер всем!

У меня возникла такая проблема: я перебираю все контролы на форме:

for q := 0 to ComponentCount - 1 do
  begin
    if not(Components[q] is TControl) then continue;
    Control := TControl(Components[q]);
  end;

Дальше у меня идёт проверка на типы контролов, например:

if Control is TEdit then (Control as TEdit).Text := MainStr;

Теперь вопрос: мне нужно проверить принадлежность Control какой-либо странице на PageControl. Псевдокод:

if Control.Parent = PageControl.Pages[1] then ....

Как мне достучаться до страницы? Заранее благодарен!

[Stilet]

if Control.Parent is TTabSheet then
 TTabSheet(Control.Parent).PageIndex - Даст номер страницы.

[Stilet]

if Control.Parent is TTabSheet then
 TTabSheet(Control.Parent).PageIndex - Даст номер страницы.