Problem mit Buttons OnMouseEnter. Alle Buttons gläntzern

[Praxist]

Hallo

by speedbuttons und Bitbtn Buttons leuchten alle Buttons zusamen, wenn ich den Mousezeiger
auf ein Button oder auf ein Control in Form bewege
Onmouse Enter bekommt das Button ein neues Icon und auch beim OnMouseleave :

Delphi-Quellcode:

procedure TForm1.ButtonsCMMouseEnter(var Message: TMessage);
begin
if WindowFromPoint(ptWork) = BitBtn2.Handle then
ImageList1.GetBitmap(2, BitBtn2.Glyph); 
//...
procedure TForm1.ButtonsCMMouseleave(var Message: TMessage);
begin
if WindowFromPoint(ptWork) <> BitBtn2.Handle then
ImageList1.GetBitmap(3, BitBtn2.Glyph);

gibt es eine Lösung für das Problem
Ich weiß nicht, warum alle Buttons glitzern, wenn der Mausezeiger auf ein Control in Form bewegt