Problem mit Buttons OnMouseEnter. Alle Buttons gläntzern

[Praxist]

Mit dem Tag funktioniert OnMouseEnter wunderbar :

Delphi-Quellcode:

procedure TForm1.DoOnEnter(Sender: TObject);
begin
   If (sender AS TBitBtn).Tag = 1 then begin
  ImageList1.GetBitmap(1, btn1.Glyph); end;
  If (sender AS TBitBtn).Tag = 2 then begin
  ImageList1.GetBitmap(3, btn2.Glyph); end;
    If (sender AS TBitBtn).Tag = 3 then begin
  ImageList1.GetBitmap(5, btn3.Glyph); end
end;

Mit OnMouseLeave kapiere ich immer noch nicht

Delphi-Quellcode:

procedure TForm1.DoOnLeave(Sender: TObject);
begin
  ImageList1.GetBitmap(Pred((Sender as TBitBtn).Tag), (Sender as TBitBtn).Glyph);
end;