[fpc-pascal] How do I add a TComponent to TPanel dynamically?

[Stephano]

Danie wrote:
>  Constructor TControlVolume.Create( Sender:TComponent );
>  begin
>    Inherited Create(Sender);
>    fCVShape.Create( Sender );
>  end;
>  
>  Destructor TControlVolume.Destroy;
>  begin
>    fCVShape.Destroy;
>    Inherited Destroy ;
>  end;

fCVShape.Create(Sender) -> fCVShape := TShape.Create(Sender)
fCVShape.Destroy -> fCVShape.Free