Fórum Está dando erro : invalid class typecast delphi #585534

Esta ocorrendo erro qdo executo o seguinte comando:

cds := ds.DataSet as TClientDataSet;

Alguém pode me ajudar.
Agradeço desde já a atenção da galera.


procedure TfrmCadBase.FormCreate(Sender: TObject);
var
I: Integer;
cds: TClientDataSet;
begin
Try
if not DS.DataSet.Active then DS.DataSet.Open;

cds := ds.DataSet as TClientDataSet;

totreg.Caption := 'Total Cadastradas: ' + intTOstr( (ds.DataSet as TClientDataSet).RecordCount );
HabilitaControlesVisuais(False);
except
on e: Exception do
begin
ShowMessage('Erro 01 - Problema ao conectar base de dados'
+ #13 + 'Erro : ' + E.Message
+ #13 + 'Classe : ' + E.ClassName
+ #13 + 'Metodo: frmCadBase/Create');
end;
End;