[Resolvido] Como criar um TabSheet para cada registro?

Olá pessoal,

Vamos ver se agora alguém consegue me ajudar.

Preciso criar dinamicamente um TabSheet (em um PageControl, claro) para cada registro de um TIBClientDataSet. No meu cadastro de fornecedores, cada fornecedor tem N contatos, e quero mostra-los (com todos os seus dados) um em cada aba. Meu estágio atual é o seguinte:

// CARREGA OS CONTATOS
// Busca os contatos

 icdConsul.close;
 icdConsul.CommandText :=
 'SELECT * FROM CONTATO '+
 'WHERE (FORCODIGO = '+dm.ibtFornecedoresFORCODIGO.AsString+') '+
 'ORDER BY CONPADRAO, CONCODIGO ';
 icdConsul.open;

 // Cria abas e frames para os dados
 icdConsul.First;
 while not icdConsul.Eof do
 begin
 fraContato1 := TfraContato.Create(TabSheet1);
 fraContato1.Parent := TabSheet1;

 icdConsul.Next;
 end;

Só que tem um problema: o nome da variável (fraContato1) não pode ser o mesmo para todos os TabSheet. Enfim, não tô tendo idéia pra resolver isso. Alguém pode me indicar algum caminho?

Vlw