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

[chengran1984]

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

begin
showmessage('test');
end;

[chengran1984]

这个问题是不是太弱智了，都没人搭理我。。

[ks_reny]

直接用 test 

[Storm2008]

unit Unit1;

interface

uses
  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.

窗体上加个按钮，双击按钮。

[chengran1984]

继续发问，
unit Unit1;

interface

uses
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'