'Cast' basado en un arreglo.

[cloayza]

Sugiero este pequeño cambio al código de Caminante

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

Saludos cordiales