Como adicionar guias de navegação do Pagecontrol?

[raphael_sm]

Ola Pessoal,

Tipo eu tenho um page control que quero adicionar guias de naveção nele, mas sem ser pelo famosa, "New page" pois o número de guias é variável. Eu até encontrei um código do help do delphi que ajudou, porém a minha figura que eu usava de fundo some. Este é o código do help do Delphi. Preciso de algo que não me faça perder a figura.

with PageControl1 do

for i := 0 to 9 do

with TTabSheet.Create(Self) do

begin

PageControl := PageControl1;

TabVisible := (PageIndex mod 2 = 0);

Caption := 'PageIndex: ' +

IntToStr(PageIndex) + ' TabIndex: ' +

IntToStr(TabIndex);

end;