[Booo]

Код:

var
i:integer;
s:integer;


page:tpagecontrol;
begin
Page := TPageControl.Create(Self);
    Page.Parent := Self;
    for s:= 0 to 0 do
    with TTabSheet.Create(Self) do
    begin
       PageControl := Page;
       Caption := 'TabSheet #' + IntToStr(i);
    end;

  for I := 0 to Page.PageCount - 1 do
 if Page.Pages [i].Caption ='TabSheet #' then
  showmessage('Такая вкладка существует')
end;

Не выводит сообщение такая вкладка существует!!