写一个代码，再Altium Designer里面，使用delphi，隐藏当前PCB所有的层，只显示topoverlay、Toppaste、mechnical1

在Altium Designer中，使用Delphi编程语言来控制PCB的层显示并不是直接的，因为通常Altium Designer是一个图形界面设计工具，它的API更适合于脚本交互而不是编写复杂的逻辑。不过，你可以通过创建一个事件驱动的脚本来间接地达到这个目的。

首先，你需要了解Altium Designer的Scripting API，特别是`NetlistProject`和`DrawingManager`类，它们可以用于操作设计视图。以下是一个简化的示例，展示了如何尝试隐藏除了指定的几层之外的所有层：

uses
  ADNScript,
  ADNUtil;

var
  Project: TNetlistProject;
  DrawingManager: TDrawingManager;
begin
  // 获取项目实例
  Project := ActiveProject as TNetlistProject;
  
  // 获取绘图管理器
  DrawingManager := DrawingManagerFromProject(Project);
  
  try
    // 遍历所有层
    for Layer in DrawingManager.GetVisibleLayers do begin
      if not (Layer.Name in ['TopOverlay', 'Toppaste', 'Mechanical1']) then begin
        // 如果不是目标层，则隐藏它
        Layer.Visible := False;
      end;
    end;
    
  except
    on E: Exception do
      Writeln('Error hiding layers: ', E.Message);
  end;
end;

请注意，这只是一个基本的示例，实际使用时可能需要处理异常，并且可能需要调整到适应你的具体需求。此外，由于Altium Designer的API可能会随着时间更新，所以建议查阅最新的官方文档以获取最准确的信息。