Funciones y Polimorfismo: Como pasar parámetros

[gaps2k]

Código Delphi [-]
//Esta es la clase madre
 
Type
TDetalle = class(TObject)
-
-
end;
 
//Clase Derivada
 
Type
TDetalleFactura = class(TDetalle)
-
-
end;
 
//funcion Problematica
function trabajar_fila(fila, columna : integer; mueve : boolean; encabezado:TEncabezado; 
  lineas:array of TDetalle; sql:TQuery; grid_prod:TStringGrid) : boolean;

Según la teroría debería funcionar!!