为什么调用unit2没反应?(我只剩下2分，可怜啊)(2分)

我在unit2中定义了一个过程clic,中间只有一句showmessage('jhhgj')
在unit1的implemntation中uese unit2;
然后在bottonclick中调用clic过程，可是没有显示，为什么？？？

在unit2中申明clic为全局函数
unit2
inteface
。。。

type
。。。。

procedure clic；
implemntation
uses。。。
procedure clic；
begin
。。。
end;

unit2中申明clic为全局函数
我也照作了，没有用啊！

我的代码贴出来,你看看,可以执行
unit Unit1;

interface

uses
Windows, Messages, SysUtils, 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;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
clic;
end;

end.






unit Unit2;

interface
uses Dialogs;
procedure clic;
implementation
procedure clic;
begin
showmessage('sdf');
end;
end.

接受答案了.