IOTAModuleServices

...
FModSvcs: IOTAModuleServices;
...

  if not Assigned(FModSvcs) then
    FModSvcs := BorlandIDEServices as IOTAModuleServices;
  var LModule := FModSvcs.FindModule(AFileName);