看看这个简单的程序错在哪儿？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  procedure aaa(p1,p2,p3:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
{$R *.dfm}
procedure aaa(p1,p2,p3:integer);
var
a,b,c:integer;
begin
a:=abs(p1);
b:=2*p2;
c:=100*p3;
end;
end.

Answer 1

procedure tform1.aaa(p1,p2,p3:integer);//你声明的是类方法.当然要类来实现拉
var
a,b,c:integer;
begin
a:=abs(p1);
b:=2*p2;
c:=100*p3;
end;

Answer 2

还有你的自定义方法最好放在Private或者Public或者Protected段