自定义光标问题(100分)

首先感谢yzhshi和shenloqi 。
我现在的问题是：我想编写一段图形缩放的程序，按下工具栏中放大镜按钮后， imgae1的
光标为带“+”的放大镜，当按下ALT键后让imgae1的光标为带“-”的放大镜 ，但现在的问题
是，当按下ALT键后，光标（带“-”放大镜）总是闪动，当鼠标不动时光标变成了箭头。
我的程序代码如下，哪位高手帮我解决？
function AltDown: Boolean;
var
State: TKeyboardState;
begin

GetKeyboardState(State);
Result := ((State[VK_MENU] and 128) <> 0);
end;

procedure TmainF.Timer1Timer(Sender: TObject);
begin
if altdown then
begin
screen.Cursors[crMyCursor]:=LoadCursor( Hinstance,'zoomout' );
currchild.Image1.Cursor := crMyCursor;
end
else
begin
screen.Cursors[crMyCursor]:=LoadCursor( Hinstance,'zoomin' );
currchild.Image1.Cursor := crMyCursor;
end;
end;