Interface Klasse findet Implementierung nicht

[bernhard_LA]

mein code sieht wie folgt aus :


die Unit mit der Interface definition.

Delphi-Quellcode:

type
  IImageLibrary = Interface
  ['{B6500357-C309-4E88-99E8-70BDFD33448D}']

      procedure ColorImage(
        Bit     : TBitMap;
        R, G, B : integer );

      procedure ColorInvImage(
        Bit     : TBitMap;
        R, G, B : Boolean );

      ......

die unit mit der Implementierung des Interfaces

Delphi-Quellcode:

  TImageLibraryClassFMX = class( TInterfacedObject, IImageLibrary )

    private
      ......

    public

      constructor create;
      destructor destroy; override;

      procedure ColorImage(
        Bit     : TBitMap;
        R, G, B : integer );

     .....
    end; 

procedure TImageLibraryClassFMX.ColorImage(Bit: TBitMap; R, G, B: integer);
begin
     ......
end;

trotzdem bekomme ich beim Übersetzen folgende fehlermeldung

[dcc32 Error] ImageUnit.FMX.pas(32): E2291 Missing implementation of interface method IImageLibrary.ColorImage Warum findet der compiler die vorhandene Implementierung der Funktion ColorImage von meiner Klasse nicht ? (