サンプルのスピンエディタでSHIFTキーを押しながらクリックするときIncrementの値を
変えたいのですが、以下のコードでは当然ながらいったん数値が変更されたとき以降で
ないとIncrement値も変更されません（スピンエディタにはOnChangingイヴェントがない）。
何か方法はないでしょうか？

TForm1.SpinEdit1Change(Sender: TObject);
begin
　if GetKeyState(VK_SHIFT) >= 0 then // SHIFTキーが押されてないとき
　　SpinEdit1.Increment := 1
　else
　　SpinEdit1.Increment := 10;
end;