uses crt;
var
 a:char;
 i:integer;
begin
 clrscr;
 writeln('Esc. - exit. Љ®¤ Є« ўЁиЁ Esc. = #27');
 repeat
  a:=readkey;
  i:=ord(a);
  writeln('Љ®¤ ­ ¦ в®© Є« ўЁиЁ ',a,' = #',i);
 until i=27;
end.

unit ColorButton;

interface

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

type
  TDrawButtonEvent = procedure(Control: TWinControl;
    Rect: TRect; State: TOwnerDrawState) of object;

  TColorButton = class(TButton)
  private
    FImages: TImageList;
    FImageIndex: TImageIndex;
    procedure SetImageIndex(const Value: TImageIndex);
    procedure SetImages(const Value: TImageList);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Images: TImageList read FImages write SetImages;
    property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default 0;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('RComp', [TColorButton]);
end;

constructor TColorButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TColorButton.Destroy;
begin
  inherited Destroy;
end;

procedure TColorButton.SetImageIndex(const Value: TImageIndex);
begin
  if Value <> FImageIndex then
  begin
    FImageIndex := Value;
    Changed();
  end;
end;

procedure TColorButton.SetImages(const Value: TImageList);
begin
  if Value <> FImages then
  begin
    FImages := Value;
    Changed();
  end;
end;
end.

  protected
    { Protected declarations }
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
---------
procedure Tmycomponent.Notification(AComponent: TComponent;
  Operation: TOperation);
var i:longint;
begin
  inherited;
  if Operation=opRemove    then
     begin
              //Проверяеш какой компоеннт удалется и если он равен твоему ImageList то присваеваеш своей переменной NIL
     end;
end;