Olá DanielR, boa tarde! A declaração abaixo está correta, então nem preciso comentar. procedure TfrmBaseReport.doAbreDados; begin cdsDados.AfterOpen(cdsDados) := depoisDeAbrir; // o erro esta nesta linha cdsDados.Close; cdsDados.Data := dadosole; cdsDados.Open; cdsDados.RecordCount; end; A coisa está errada na declaração "procedure TfrmBaseReport.DepoisDeAbrirCds", pois quando você tem um método que será atribuído a um evento, este método recebe o Objeto por parâmetro, ou seja, você deverá declarar conforme segue: procedure TfrmBaseReport.DepoisDeAbrirCds(Sender: TObject); begin // falta fazer o código end; Desta forma não irá ocorrer o erro que você menciona; Quando for tratar o objeto na Procedure, procure usar TypeCast, ou seja, faça referência na seguinte forma: - TClientDataSet(Sender).Open; - TClientDataSet(Sender).Close; - ... Espero ter ajudado!
