Fórum Form TDI com pesquisa generica #534473

Galera seguinte, to tentando passar os dados de um form normal para um form TDI ou seja form criado dentro de um pagecontrol como aba, esse form normal e uma consulta generica e é um formulario normal, entao tive a ideia de passar meus formularios para o estilo TDI, e encontrei essa dificuldade, vou postar o codigo que uso para passar os dados para o Formulario TDI:

para chamar o Formulario de pesquisa uso o seguinte codigo:

inherited;
frmPesquisa := TfrmPesquisa.Create(self);
frmPesquisa.CDS := dmDados.cdsPosto;
frmPesquisa.Tabela := 'POSTO';
frmPesquisa.CampoBusca := 'ID';
frmPesquisa.CampoBusca2 := 'DESCRICAO';
frmPesquisa.LegendaGroupBox := 'Consulta de Postos por Nome';
frmPesquisa.dsPesquisa.DataSet := ds1.DataSet;
frmPesquisa.CampoRetorno := frmContFunc.edtPosto;
frmpesquisa.CampoRetorno2 := frmContFunc.edtNomePosto;
frmPesquisa.ShowModal;
FreeAndNil(frmPesquisa);

para retornar os dados para os campos do formulario que chamou a pesquisa uso o seguinte codigo:

CampoRetorno.Text := dsPesquisa.DataSet.FindField(CampoBusca).AsString;
CampoRetorno2.Text := dspesquisa.DataSet.FindField(CampoBusca2).AsString;
camporetorno.setfocus;
Close;
lembrando que CampoRetorno.Text e uma variavel criada no form de pesquisa do tipo Tedit.

Acontece que ele nao da erro mas nao retorna os dados para os campos, antes de transformar os formualrios em TDI passava normalmente, agora nao passa;

Fico no aguardo para uma solução !!!