TMyAction = class(TAction)
 private
   fLoaded: boolean;
 public
   procedure Loaded;override;
end;

TЬнActionList = class(TActionList)
 public
   constructor Create(AOwner: TComponent); override;
   procedure Loaded;override;
end;

constructor TЬнActionList.Create(AOwner: TComponent);
var DefAction: TAction;
begin
 inherited Create(AOwner);
 if csDesigning in ComponentState then begin
   DefAction := TMyAction.Create(AOwner);
   DefAction.ActionList := self;
 end;
end;

procedure TMyActionList.Loaded;
var i: integer;
begin
 inherited Loaded;
 for i := 0 to ActionCount-1 do
   if Actions[i] is TMyAction then
     if not TMyAction(Actions[i]).fLoaded then Actions[i].Free;
end;

{ TMyAction }

procedure TMyAction.Loaded;
begin
 inherited Loaded;
 fLoaded := true;
end;

unit MyActionList;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ActnList;

type
TMyAction = class(TAction)
 private
   fDesignCreate: boolean;
 public
   procedure SetName(const NewName: TComponentName);override;
end;

TMyActionList = class(TActionList)
 public
   constructor Create(AOwner: TComponent); override;
end;
procedure Register;

implementation

{ TActionList }
procedure Register;
begin
 RegisterComponents('Standard',[TMyActionList]);
 RegisterNoIcon([TMyAction]);
end;

constructor TMyActionList.Create(AOwner: TComponent);
var DefAction: TMyAction;
   i: integer;
begin
 inherited Create(AOwner);
 if csDesigning in ComponentState then begin
   DefAction := TMyAction.Create(AOwner);
   DefAction.ActionList := self;
   DefAction.fDesignCreate := true;
   i := 1;
   while 1 = 1 do
     try
       DefAction.Name := 'MyAction'+IntToStr(I);
       Break;
     except
       Inc(i);
     end;
 end;
end;

{ TMyAction }

procedure TMyAction.SetName(const NewName: TComponentName);
var C: TComponent;
begin
 if not fDesignCreate then begin
    C := Owner.FindComponent(NewName);
    if Assigned(C) then C.Free;
  end;
 inherited
end;

initialization
 RegisterClass(TMyAction);
end.