Fórum Criando objeto do tipo TClientDataset #332590

Pessoal

Em um evento estou criando um objeto do tpo TClientDataset. Então fiz assim:

var QrContReg : TClientDataset;
begin

Try
QrContReg := QrContReg.Create(application);

QrContReg.Close;
QrContReg.CommandText := ´Select * from CLIENTE_FORNECEDOR CF´;
QrContReg.Open;

edTotalRegAnt.Text := Inttostr(QrContReg.RecordCount);
Finally
FreeAndNil(QrContReg);
end;

O problema é que da erro em execução na linha

QrContReg := QrContReg.Create(application)

Informa que um objeto FRMCONSULTA_1 já existe. Na realidade ele entendo o application como o form, estou criando o QrCOntREG
Já tentei usar Nil mas não deu.


Eu posso criar um objeto em tempo de execução ou teria que colocar um componente no form

Estou usando Delphi 7 + conexão dbexpress + Interbase 6.0

Fico no aguardo

Rogério