Как сделать так, чтоб при наведении курсора картинка менялась на другую

type 
   TBitBtn = class(Buttons.TBitBtn)
      // тут отлов CM_MOUSEENTER / CM_MOUSELEAVE
   end;
 
   TForm1 = class(TForm) // твоя форма, изменения не потребуются

unit Unit1;
 
uses ...; // тут вся твоя секция uses
 
type
   TBitBtn = class(Buttons.TBitBtn) // Вот это я добавил руками
      procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
      procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
   end;
 
  TForm1 = class(TForm) // на форме - только одна кнопка
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
procedure TBitBtn.CMMouseEnter(var msg: TMessage); // Мыша над кнопкой
begin
   Glyph := nil;
   // И меняешь глиф любым способом, хочешь из ImageList-а,
   // для теста я сделал чтение прямо из файла
   Glyph.LoadFromFile('in.bmp');
end;
 
procedure TBitBtn.CMMouseLeave(var msg: TMessage); // Мыша ушла с кнопки
begin
   Glyph := nil;
   Glyph.LoadFromFile('out.bmp');
end;
 
end.

procedure TBitBtn.CMMouseEnter(var msg: TMessage);
begin
   Glyph := nil;
   if Tag = 1 then // грузишь одну картинку, на первую кнопку
   else if Tag = 2 then // это вторая кнопка - грузишь другую
end;