写VCL控件的高手请过来

Question

unit myProvider ;interfaceuses
  Windows, Messages, SysUtils, Classes,Dialogs,
   Controls,StdCtrls,Forms,ADODB;type
  TmyProvider = class(TComponent)  
  private
    { Private declarations }
    FADOCommand : TADOCommand;
    procedure SetADOCommand(const Value: TADOCommand);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property ProviderADOCommand : TADOCommand read FADOCommand write SetADOCommand  ;
    { Published declarations }  end;implementation{ TmyProvider }procedure TmyProvider.SetADOCommand(const Value: TADOCommand);
begin
    if Value <> FADOCommand then
    begin
        FADOCommand := Value;
        if Value <> nil then Value.FreeNotification(Self);
    end;    FADOCommand.CommandType := cmdText;
    FADOCommand.Prepared := TRUE;
    FADOCommand.ExecuteOptions :=[eoExecuteNoRecords];
end;end.以上是我的一个VCL控件的代码，当我在窗体上使用它以后，把它的 ProviderADOCommand  属性设置为一个 ADOCommand 控件。
问题来了，当我把这个 ADOCommand 控件 删除掉，就会报错，然后我的控件就不可以使用，请高手解决这个问题，送300分

Answer 1

在控件的定义中将Notification方法Override一下试一试：TmyProvider = class
...
protected
  procedure Notification(AComponent: TComponent;
    Operation: TOperation); override;
public
  ...
end;....procedure TmyProvider.Notification(AComponent: TComponent;
  Operation: TOperation); 
begin
 inherited Notification(AComponent, Operation);
 if (Operation = opRemove) and (AComponent = FAdoCommand) then
    FADOCommand := nil;
end;
注：我不是高手