在Delphi中公开子程序，通常是为了让其他程序集能够调用这个子程序。以下是一个简单的说明和示例代码，展示如何在Delphi中公开一个子程序：
创建DLL库
首先，你需要创建一个DLL库项目。在Delphi中，选择 `File` -> `New` -> `Other`，然后选择 `Library` -> `Delphi Library`。
定义子程序
在DLL库中，定义一个子程序。例如，定义一个名为 `My_Max` 的子程序，它接受两个整数参数并返回一个整数。
```delphi
unit MyDLL；
interface
function My_Max（a, b: Integer）: Integer； stdcall；
implementation
function My_Max（a, b: Integer）: Integer；
begin
Result := a + b；
end；
end.
```
编译DLL
编译DLL库，生成 `.dll` 文件。在项目选项中，选择 `Build` -> `Build`。
在主程序中使用DLL
在主程序中，你可以使用 `uses` 语句来引用DLL库，并调用公开子程序。
```delphi
unit MainForm；
interface
uses
MyDLL；
var
MaxValue: Integer；
procedure ButtonClick（Sender: TObject）；
implementation
procedure ButtonClick（Sender: TObject）；
begin
MaxValue := My_Max（10, 20）；
ShowMessage（'The maximum value is: ' + IntToStr（MaxValue））；
end；
end.
```
调用DLL中的子程序
确保DLL库和主程序在同一个项目中，或者在系统路径中，这样主程序就可以找到并调用DLL中的子程序。
注意事项
公开与非公开：
在Delphi中，子程序的公开性是通过在单元的接口部分使用 `public` 关键字来控制的。如果子程序被标记为 `public`，它可以在其他单元中被调用。如果未标记为 `public`，则只能在定义它的单元中被调用。
调用方式：
公开子程序可以在任何子程序中调用，只要它们都在同一个程序集中或者在系统路径中。未公开的子程序只能在定义它的模块内部调用。
通过以上步骤，你可以在Delphi中公开一个子程序，并在其他程序集中调用它。希望这个示例和说明对你有所帮助。