unit test_dll;interfaceuses Windows, Messages, SysUtils, Dialogs;const
  BDT_DEVICEARRIVAL = $8000;type
  procedure WMDeviceChange(var Msg:Tmessage); message WM_DEVICECHANGE;implementationprocedure WMDeviceChange(var Msg:Tmessage);
begin
  // so sth. 
end;
initializationfinalization
   
end.// 这样编译时,
[Error] test_dll.pas(11): Identifier expected but 'PROCEDURE' found
[Error] test_dll.pas(11): Unknown directive: 'message'// 而放到普通窗体的.pas文件中,则可以正常运行。请指点。