Component List (delphi)

unit Unit1;

interface

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

type
  TOperation = procedure (AObj: TObject);
  TOpFilter = function (AObj: TObject): Boolean;
 
  TActionManager = class(TObject)
    private
      ObjList: TList;
    public
      procedure AddObjs(Objects: array of TObject); overload;
      procedure AddObj(AObj: TObject); overload;
      procedure DelObj(Index: Integer);
      procedure ClearObjs;
      function IndexOf(AObj: TObject): Integer;
      procedure Iterate(AOP: TOperation; AFilter: TOpFilter = nil);
      constructor Create;
      destructor Destroy; override;
  end;
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: