Puntero de diferentes clases

[chavetaz]

cree esta unit a ver que les parece:

Código Delphi [-]
unit SuperPDF; 
interface

uses
    PdfLib_TLB, AcroPDFLib_TLB;

type
    TSuperPDF = class
    public
        function LoadFile(const fileName: WideString): WordBool;virtual; abstract;
    published
        property  Visible;virtual; abstract;
    end;

    TPdf60 = class(TSuperPDF)
    private
        Pdf: TPdf;
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    end;

    TPdf70 = class(TSuperPDF)
    public
        function LoadFile(const fileName: WideString): WordBool;
    published
        property  Visible;
    private
        Pdf: TAcroPdf;
    end;

implementation
function TPdf60.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
function TPdf70.LoadFile(const fileName: WideString): WordBool;
begin
Pdf.LoadFile(fileName);
end;
 
end.

no puse en la implementacion las properties pero tengo que implementar las correspondientes read y write.
como lo ven????

Otra cosa, en la definicion de TPdf encontre:

 TPdf = class(TOleControl)

y en TAcroPdf:

 TAcroPDF = class(TOleControl)

Podria llegar a usar TOleControl como padre?

SaLuDoS