Adicionando Fields em run-time [bds2007 dbexpress]

Olá Pessoal,

Possuo um aplicação, onde as telas de cadastro são geradas por herança, e a pesquisa desta tela tem que ser bem genérica. Possuo um ClientDataSet(cdsCadastro) que é o objeto que manipula os dados(Insert, Update, Deletes) e com a clausula SQL(select ... from TabelaTal) e outro ClientDataSet(cdsPesquisa).

No Create do Form passo a clausula SQL do cdsCadastro para o cdsPesquisa, no entanto preciso que o cdsPesquisa herde os TFields do cdsCadastro com todas as suas propriedades modificadas(DisplayName, DisplayFormat, Visible,...). A rotina que tentei implementar(segue rotina abaixo) está dando erro de memória sempre que fecho o form.
Alguém ai pode me ajudar?

Desde já Obrigado a todos


[color=blue:8fa028e1c8][b:8fa028e1c8]procedure TfrmCadastro..FormCreate(Sender: TObject);
var
i: integer;
begin

cdsPesquisa.CommandText := dtsCadastro.CommandText;

with cdsPesquisa do
begin

cdsPesquisa.Fields.Clear;
for i := 0 to cdsCadastro.FieldCount - 1 do
cdsPesquisa.Fields.Add(cdsPesquisa.Fields[i]);

end;

end;[/b:8fa028e1c8][/color:8fa028e1c8]


Atenciosamente,
Yale Leite