Rollovergrafiken für speedbuttons

[C64-Flo]

Hallo erstma, ist schon ne weile her seit ich hier vorbeigeschaut habe


Folgendes kleines Problem:

Ich möchte ganz simpel rollovergrafikwechsel für glyphen auf speedbuttons erreichen.

Da ich rumgetüftelt habe, hab ich es zwar schon irgendwie hinbekommen (mit ´mousmove´ etc),
aber dabei flackern die grafiken ziemlich hässlich....

Delphi-Quellcode:

procedure TForm4.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if neubutton=false then begin
            speedbutton3.glyph.loadfromfile(ExtractFilePath(ParamStr(0)) + 'data\img\btn\neuesspiel2.bmp');
            neubutton:=true;
            end;
end;

und für die wiederherstellung dasselbe in grün für mousemove über der Form....

Delphi-Quellcode:

if neubutton=true then begin
            speedbutton3.glyph.loadfromfile(ExtractFilePath(ParamStr(0)) + 'data\img\btn\neuesspiel1.bmp');
            neubutton:=false;
            end;

Geht doch sicher auch einfacher, oder?