菜菜继续发问，关于子程序调用【不知道是不是这么叫】

Question

自己写一个如下的，想在其他地方调用那么该怎么做？
procedure test();begin
 showmessage('test');
end;

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;   procedure test();// 自己添加implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;//自己添加
procedure test;
begin 
  showmessage('test');
end;end.窗体上加个按钮，双击按钮。

Answer 2

继续发问，
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;   procedure test();// 自己添加implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;//自己添加
procedure test;
begin 
  ADOquery1.close;--------------------------------------》ADOquery1为什么我加在这里就报错？
  showmessage('test');
end;end.[DCC Error] Unit4.pas(59): E2003 Undeclared identifier: 'ADOquery1'
[DCC Error] Unit4.pas(59): E2029 '(' expected but ';' found
[DCC Fatal Error] 我搜服采集程序.dpr(5): F2063 Could not compile used unit 'Unit4.pas'