Klassen, Vererbung und CAST

[bernhard_LA]

ich habe eine Klasse TBitMapExtension welche über ihre LoadFromFile, SaveToFile in der Lage ist eine Vielzahl von Grafikformaten (*.jpg, *.tig, *.png) zu verarbeiten
Über einen Cast übergebe ich die Klasse an eine Funktion welche für den Dateityp TBitmap entworfen wurde.

Delphi-Quellcode:

  TBitMapExtension = Class(VCL.Graphics.TBitMap)

    procedure LoadFromFile(const Filename: String); override;

    procedure SaveToFile(const Filename: String); override;

  public
    ......
  end;

Delphi-Quellcode:

  Procedure  verarbeiteBMP ( ambp : TBitmap) 
  begin 
          w := abmp.width;   // hier kommt es zur AV
  end;

Delphi-Quellcode:

   /// Hauptprogramm
   bmp := TBitMapExtension.Create;
   bmp.loadfromFile(); 
   verarbeiteBMP( TBitmap(bmp));

Warum bekomme ich in der Funktion verarbeiteBMP eine Zugriffsverletzung wenn ich die Weite eine Bitmap auswerten will ?