remove control from theme on destroy

bgratheme.pas

@@ -47,6 +47,8 @@ type
   private
     FTheme: TBGRATheme;
     procedure SetTheme(AValue: TBGRATheme);
+  public
+    destructor Destroy; override;
   published
     property Theme: TBGRATheme read FTheme write SetTheme;
   end;
@@ -106,6 +108,12 @@ begin
   Invalidate;
 end;
 
+destructor TBGRAThemeControl.Destroy;
+begin
+  if Assigned(FTheme) then FTheme.RemoveThemedControl(self);
+  inherited Destroy;
+end;
+
 { TBGRAThemeSurface }
 
 function TBGRAThemeSurface.GetBitmap: TBGRABitmap;