'Cast' basado en un arreglo.

[Caminante]

Hola

Me parece que debes declarar la referencia de clase para TqckrprtPadre

Código Delphi [-]
TqckrprtPadreclass= class of TqckrprtPadre;

y luego

Código Delphi [-]
aReportes: array of TqckrprtPadreclass;

Luego

Código Delphi [-]
for iIndiceI := 0 to Length(aReportes) -1 do
   try
      ElReporte := TqckrprtPadreclass(aReportes[iIndiceI]).Create(nil);
      MessageDlg('Reporte '+ElReporte.Name+' creado y funcionando.', mtInformation, [mbOK], 0);
   finally
      ElReporte.free;
      ElReporte := nil
   end;

Espero que sea util

Saludos