lazarus怎么有些windows消息没法处理呢？？？

stosoft

message WM_DEVICECHANGE  （u盘插拔） 在delphi下能处理
但在lazarus下怎么捕获不到这个消息事件呢
代码如下：
声明部分：  procedure WMDeviceChange( var Msg1:Tmessage);message WM_DEVICECHANGE;

实现部分：

procedure TForm1.WMDeviceChange(var Msg1:Tmessage);
  var
    i:integer;
    str:string;
  begin
   // inherited;
    showmessage('ccc');
    case Msg1.WParam of
    32768:      // U 盘插上事件
         begin
              showmessage('U 盘插入');
         end;
    32772:  //'U盘拔出';
        begin
             showmessage('U盘拔出');
        end;
    end;  // end of case
end;      
以上代码在delphi下起效，在lazarus下不起效，怎么回事？难道是lazarus屏蔽了一下windows消息事件