Criar TabSheet em tempo de execução

Preciso criar tabsheets em tempo de execução, mas estou tendo problemas. Verifiquei que ele está criando os tabsheets mas não mostra.

meu codigo:

var
tab : ttabsheet;
i : integer;
begin
tabela.first;
while not tabela.eof do
begin
inc(i);
tab := ttabsheet.create(self);
tab.parent := pagecontrol1;
tab.name := ´tabsheet´ + inttostr(i);
tab.tabindex := i -1;
tab.show;
tabela.next;
end;
end;