控件如何自定义函数使用

Question

请问我这样子为何老是出错呢？
哪么我该怎么办呢？
我要在自定义函数中使用Edit,Image
请指教var
  Form1: TForm1;
  procedure add(x,y: integer);implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  x,y: integer;
begin
    x := 3;
    y := 3;
    add(x,y);
end;
procedure add(x,y: integer);
begin
   edit1.text := inttostr(x+y);
end;

Answer 1

改成下列就可以了：procedure TForm1.add(x,y: integer);
begin
   edit1.text := inttostr(x+y);
end;
/////////////////这是初学者的常见问题，其实在程序头部分定义好procedure或者function后，按CTRL+SHIFT+C键就会自动添加在程序中了。

Answer 2

还是不行啊！大侠快救我吧。type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  procedure TForm1.add(x,y: integer);implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
   x,y: integer;
begin
    x := 4;
    y := 3;
    add(x,y);
end;procedure TForm1.add(x,y: integer);
begin
   edit1.text := inttostr(x+y);
end;end.

Answer 3

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  procedure add(x,y: integer);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
   x,y: integer;
begin
    x := 4;
    y := 3;
    add(x,y);
end;procedure TForm1.add(x,y: integer);
begin
   edit1.text := inttostr(x+y);
end;end.