新年好！GetRunningObjectTable出错

alexwu

uses
Windows, comobj, ActiveX,.....


procedure TForm1.Button1Click(Sender: TObject);
var
  ROT : IRunningObjectTable;
begin
  GetRunningObjectTable(0, ROT);
end;

执行时出现类似内存未分配的错误，请高手们帮忙看看，非常感谢。