An die Profis nochmal Interface

[EWeiss]

Habe das problem mit meinem Interface der listBox gelößt.
Habe zwar noch beim beenden der anwendung ein Problem .. aber das erstmal bei seite.

Meine Frage..

Warum funktioniert dieser aufruf nicht..

Delphi-Quellcode:

  ISkinListBox = interface
    ['{38EF3B4F-86A1-45D0-A7F3-4E45E125979D}']
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
    procedure InitTrackbar;
  end;

Er zerstört mein Interface bzw .. springt in 'Destroy'

und das hier geht ?

Delphi-Quellcode:

  ISkinListBox = interface
    ['{38EF3B4F-86A1-45D0-A7F3-4E45E125979D}']
    procedure SetFont(nPointSize: Integer; FontName: PAnsiChar; AktForecolor: COLORREF;
      InAktForecolor: COLORREF; Shadow: Boolean; SOffset: Integer; ShadowColor: COLORREF);
    procedure InitTrackbar;
    function GetHandle: hWnd;
    property Handle: hWnd read GetHandle;
  end;

ohne das die Classe oder das interface zerstört wird.

Jemand eine gute Erklärung für mich damit ich den Fehler in zukunft nicht noch einmal mache?
Warum so und nicht anders?

Das hat mich ein paar Tage gekostet dahinter zu kommen.

gruss