Проблемы написания хорошего компонента

  TMCClick = procedure (Sender : TObject; Id:Integer) of object;
 
  TMCEvents = class(TControl)
  private
    FCybiks:Array[1..20,1..4] of Integer; //виртуальный прямоугольники объектов(для возврата id)
    FCybikCount:integer;                      //Колличество виртуальных кубов
    FOnMCClick:TMCClick;                    
    procedure WMLButtonDown(var Msg : TWMMouse); message WM_LBUTTONDOWN;
    Function TakeMCMouseCoord(x,y:integer):Integer; //возвращает id объекта для (x,y)
  protected
  public
    Constructor Create(AOwner: TComponent); override;
    Procedure AddCybik(x1,y1,x2,y2:integer);//создает виртуальный куб
    Procedure DeleteCybik(id:integer);          //удаляет виртуальный куб
    Procedure ChangeCybik(id,x1,y1,x2,y2:integer);//изменяет виртуальный куб
    Procedure FreeAll; //Очещает весь массив
  published
    property OnMCClick:TMCClick read FOnMCClick write FOnMCClick; //Событие ловли клика и возврата id на клике.
  end;

Function TMCEvents.TakeMCMouseCoord(x,y:integer):Integer;
var Temp:TPoint;
    id,i:integer;
begin
  GetCursorPos(Temp);
  Temp.X:=x;
  Temp.Y:=y;
  id:=0;
  for i:=1 to 20 do
    if CheckIn(FCybiks[i,1],FCybiks[i,2],FCybiks[i,3],FCybiks[i,4],Temp.X,Temp.Y) then
      id:=i;
 
  TakeMCMouseCoord:=id;
end;
 
Function CheckIn(x1,y1,x2,y2,x3,y3:Integer):Boolean;
begin
  if (x1 < x3) and (y1 < y3) and (x2 > x3) and (y2 > y3) then
    Result:=True
      else
        Result:=False;
end;

procedure TMCEvents.WMLButtonDown(var Msg : TWMMouse);
begin
  if assigned(FOnMCClick) then
    OnMCClick(Self, TakeMCMouseCoord(Msg.XPos,Msg.YPos));
end;

  GetCursorPos(Temp);  
  Temp.X:=x;
  Temp.Y:=y;

type
 
  TItem = class(TComponent)
  protected
    function GetPosition: TRect; virtual; abstract;
    procedure SetPosition(Rect: TRect); virtual; abstract;
    { only references }
    procedure SetPos(Index: Integer; Value: Integer);
    function GetPos(Index: Integer): Integer;
    property Left: Integer index 0 read GetPos write SetPos;
    property Top: Integer index 1 read GetPos write SetPos;
    property Width: Integer index 2 read GetPos write SetPos;
    property Height: Integer index 3 read GetPos write SetPos;  
  public
    function HasParent: Boolean; override;
  end;
 
  TItemClass = class of TItem;
 
  TTable = class(TCustomPanel)
  private
    FItemType: TItemClass;
    FProportions: Real;
    procedure SetProportions(Value: Real);
    function GetItem(Index: Word): TItem;
    function GetItemCount: Word;
  protected
    FItems: array of TItem;
    procedure EvalItemSize(var ItemWidth, ItemHeight: Integer); virtual;
    property ItemType: TItemClass read FItemType;
    property ItemCount: Word read GetItemCount;
    constructor Create(AOwner: TComponent; ItemType: TItemClass); virtual;
  public
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property BorderStyle;
    property BorderWidth;
    property Color;
    property ParentColor;
    property Enabled;
    property OnClick;
    property Visible;
    property OnResize;
    procedure Resize; override;
  public
    function NewItem: TItem; virtual;
    procedure ReBuild; dynamic;
    property Proportion: Real read FProportions write SetProportions;
    procedure Assign(Source: TPersistent); override;
  end;

type
 
  TImageTableItem = class(TItem)
  private
    procedure SetImageByFileName(Value: String);
    procedure SetImageByPicture(Value: TPicture);
    function GetImage: TPicture;
    //procedure SetImageClick(Value: TNotifyEvent);
    class function IsTITIC(AType: TItemClass): Boolean;
  protected
    FPanel: TPanel;
    FImage: TImage;
    function GetPosition: TRect; override;
    procedure SetPosition(Rect: TRect); override;
  public
    procedure Assign(Source: TPersistent); override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property ImageFile: String write SetImageByFileName;
    property Image: TPicture read GetImage write SetImageByPicture;
  end;
 
  TSelectingTableItem = class(TImageTableItem)
  private
    FOnClick: TNotifyEvent;
    procedure ImageClick(Sender: TObject);
  protected
    procedure HighLight;
  public
    property OnClick: TNotifyEvent read FOnClick write FOnClick;
    procedure Click;
    constructor Create(AOwner: TComponent); override;
    procedure Assign(Source: TPersistent); override;
  end;
 
  TITIC = class of TImageTableItem;
 
  TImageTable = class(TTable)
  public
    constructor Create(AOwner: TComponent; ItemType: TItemClass); override;
    procedure AddImage(FileName: String); overload;
    procedure AddImage(Picture: TPicture); overload;
    function IsPictureLoaded(Sample: TPicture): Integer;
  end;
 
  TSelectingTable = class(TImageTable)
  private
    FSelected: Integer;
    FOnSelecting: TNotifyEvent;
    procedure ItemClick(Sender: TObject);
    function GetSelectedPic: TPicture;
    procedure Select(Index: Word);
    procedure SetDefaultChoice(Value: Integer);
  public
    constructor Create(AOwner: TComponent; ItemType: TItemClass); override;
    function NewItem: TItem; override;
    property SelectedItem: Integer read FSelected;
    property SelectedPicture: TPicture read GetSelectedPic;
    property OnSelecting: TNotifyEvent read FOnSelecting write FOnSelecting;
    property DefaultSelection: Integer read FSelected write SetDefaultChoice;
    procedure Assign(Source: TPersistent); override;
  end;

procedure TSelectingTable.ItemClick(Sender: TObject); // <-- Sender это твоя кнопка
var a: integer;
begin
     for a:=0 to high(FItems) do
         if FItems[a] = Sender
            then FSelected:=a; // <-- тут ты уже знаешь id
     if @FOnSelecting <> nil
        then FOnSelecting(Self)
end;