title: Adding a TGlowEffect to a derived firemonkey TImage component
body: <p>I have a component that I have derived from TImage that has TGlowEffect. I have it installed and it is visible on the form. I can change the glow effect parameters but when I run the program the program crashes Rad Studio?</p>
  
  <p>Here is my code.</p>
  
  <pre><code>type
     TGlowImage = class( TImage )  
     private  
         FGlowEffect: TGlowEffect;  
  
         procedure SetGlowEffect( const Value : TGlowEffect );  
  
      protected
  
      public
        constructor Create( AOwner : TComponent); override;
        destructor Destroy(); override;
  
      published
        property GlowEffect : TGlowEffect read FGlowEffect write SetGlowEffect;
      end;
  
  procedure Register;  
  
  implementation  
  
  procedure Register;  
    begin  
      RegisterComponents( 'SomeCompany', [TGlowImage] );  
    end;  
  
  { TGlowImage }  
  
  constructor TGlowImage.Create( AOwner : TComponent );  
    begin  
      inherited;  
        FGlowEffect := TGlowEffect.Create( Self )  
    end;  
  
  destructor TGlowImage.Destroy();  
    begin  
      if( Assigned( FGlowEffect ) ) then  
        FreeAndNil( FGlowEffect );  
      inherited;  
    end;  
  
  procedure TGlowImage.SetGlowEffect( const Value : TGlowEffect );  
    begin  
      FGlowEffect.Assign( Value );  
    end;  
  </code></pre>
  
  <p>I don't know what I have missed but it must be rather bad.</p>
  
  <p>Any help would be appreciated. </p>