>>86
1.ファイル(F) 新規作成(N) ユニット(U)

2.
unit Unit2;
interface
procedure Hoge; // 宣言
implementation
procedure Hoge; //
begin
  処理
end;
end.

3.
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2; // Unit2追加
中略
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Hoge; // 呼び出し
end;
end.