Funciones y Polimorfismo: Como pasar parámetros

[gaps2k]

Hola Listeros,

Estoy desarrollando una apliación en donde tengo varias estructuras similares, que difrieren más que todo en cantidad de atributos que en comportamiento.

Tengo Detalles de Factura, de Ordenes de Compra y De Ordenes Productivas.

Declaro una Clase TDetalle que tiene los valores y comportamiento común a todos. Y declaro las otras clases Heredando de esta,

Ej: TDetalleFactura que hereda de TDetalle
TDetalleFactura = Class(TDetalle)

El problema que tengo es que declaro una función que recibe como parámetro un Objeto de tipo TDetalle y cuando trato de pasarle un TDetalleFactura o TDetalleOrden, me dice que los tipos de datos son incompatibles.

La función no pertenece a ninguna de las Clases, solo las recibe como parámetro. Trabajo Delphi 7.

Espero que puedan ayudarme (o guiarme!!).