privileged instruction 的问题 ( 积分: 100 )

我的程序一直好着,后来用了一个关于
procedure TVFMYHBJDY.NewGridWnd(var Message: TMessage);
var
IsNeg : Boolean;
begin
if Message.Msg = WM_MOUSEWHEEL then
begin
IsNeg := Short(Message.WParamHi) < 0;
if IsNeg then
DBGrid1.DataSource.DataSet.MoveBy(1)
else
DBGrid1.DataSource.DataSet.MoveBy(-1)
end
else
OldGridWnd(Message);
end;
后来一运行程序就出问题了,后来我去掉了,还是不行,打印时就出现
access violation at address 0000000(这里的数字是不停变化 的) ,write of 000000
不知是什么原因
请朋友及高手为我解除心痛