[hades2600]

Buenas a todos.

Tengo un problemilla con Delphi 2007 para Win32 con ADO.

Me explico: estoy intentando crear un componente derivado de TADOQuery, que haga copia de todos los parámetros antes de asignar los nuevos parámetros. Esto parece relativamente simple:

Código Delphi [-]
 
TNewADOQuery = class(TADOQuery)
  FcpyParams: TParameters;
public
  constructor Create(aOwner: TComponent); override;
  procedure SaveParams;
end;
 
constructor TNewADOQuery.Create(aOwner: TComponent); override;
begin
  inherited Create(aOwner);
  FcpyParams := TParameters.Create(Self, TParameter); 
end;
 
procedure TNewADOQuery.SaveParams;
begin
  FcpyParams.Clear;
  FcpyParams.Assign(Parameters); // <- Excepcion
  FcpyParams.AssignValues(Parameters); 
end;

Pues bien, la instrucción marcada me da una excepción de
"Invalid class typecast" y el problema es que no encuentro una solucion ni veo a qué se puede deber la excepción por ninguna parte.

¿Alguien me puede ayudar?