function GetPath(Comp: TComponent): String;

var

  OTAComponent: IOTAComponent;

  i, j: integer;

  Editor: IOTAEditor;

  FormEditor: IOTAFormEditor;

  ModuleServices: IOTAModuleServices;

  Module: IOTAModule;

begin

  Result:='';

  if Supports(BorlandIDEServices, IOTAModuleServices, ModuleServices) then

  begin

    for i := 0 to ModuleServices.ModuleCount - 1 do

    begin

      Module := ModuleServices.Modules[i];

      for j := 0 to Module.GetModuleFileCount - 1 do

      begin

         Editor := Module.GetModuleFileEditor(j);

         if Supports(Editor,IOTAFormEditor, FormEditor) then

         begin

           OTAComponent := FormEditor.FindComponent(Comp.Name);

           if Assigned(OTAComponent) and (OTAComponent.GetComponentHandle = Comp) then

           begin

             Result := Module.FileName;

             Exit;

           end;

         end;

      end;

    end;

  end;

end;