放在MouseMove事件里面~~MouseDown是鼠标按下触发的事件
procedure TForm1.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
speedbutton1.glyph:=1down.bmp;
end;