IOTAModuleCleanup = interface
    ['{682E85BB-AF62-4868-BEFF-0C1515F006A8}']
    { When implemented on a module, this method will delete generated files like .dcu, .exe, etc }
    procedure CleanupFiles;
  end;

procedure Cleanup;
var
  LMsg: IOTAMessageServices;
  LModuleSrvc: IOTAModuleServices;
  LPrj: IOTAProject;
  Li: Integer;
  LModInfo: IOTAModuleInfo;
  LModule: IOTAModule;
  LModClean: IOTAModuleCleanup;
begin
  LMsg := BorlandIDEServices as IOTAMessageServices;

  ABindingResult := krNextProc;
  LModuleSrvc := BorlandIDEServices as IOTAModuleServices;
  LPrj := LModuleSrvc.GetActiveProject;
  if LPrj = nil then
    Exit;
  for Li := 0 to LPrj.GetModuleCount - 1 do begin
    LModInfo := LPrj.GetModule(Li);
    LMsg.AddTitleMessage(Format('Process: %s, Type: %d', [LModInfo.Name, LModInfo.ModuleType]));
    try
      if LModInfo.ModuleType in [omtForm, omtDataModule, omtProjUnit, omtUnit] then begin
//        LModule := LModInfo.OpenModule;
//        if Supports(LModule, IOTAModuleCleanup, LModClean) then begin
        if Supports(LModInfo, IOTAModuleCleanup, LModClean) then begin
          LModClean.CleanupFiles;
          LMsg.AddTitleMessage('  Clean');
        end;
      end;
    except
      on E: Exception do
        LMsg.AddTitleMessage('  ' + E.Message);
    end;
  end;
end;