我做的这个过程有什么错？

Question

var
  Form1: TForm1;implementation{$R *.DFM}procedure Xxx(x:Boolean);
begin
 edit1.Enabled:=x;
 edit2.Enabled:=x;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Xxx(True);
end

Answer 1

procedure Xxx(x:Boolean);
begin
 edit1.Enabled:=x;
 edit2.Enabled:=x;
// 老大，你这里少了end！

Answer 2

procedure Xxx(x:Boolean);
begin
 edit1.Enabled:=x;
 edit2.Enabled:=x;end;  //--------------------你这里没有加End;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Xxx(True);
end;

Answer 3

procedure TForm1.Xxx(x:Boolean);
begin
 edit1.Enabled:=x;
 edit2.Enabled:=x;
end;

Answer 4

procedure Xxx(x:Boolean);
begin
 edit1.Enabled:=x;
 edit2.Enabled:=x;
应该改为：
procedure tform1.xxx(boolean);来实现了！

Answer 5

zhang21cnboy说的比较对。说得对
你这样做；
...
procedure Xxx(x:Boolean);//shift+ctrl+c
procedure Button1Click(Sender: TObject);
private
...
...
shift+ctrl+c
可以避免这类问题

Answer 6

to zhang21cnboy(沧桑男人) ：为什么应该改为：
procedure tform1.xxx(boolean);用一个单独的过程名不行吗？

Answer 7

TO miaomiaowq
你alt+f12看一看住从关系
在Tform里申明的；定义一定要加Tform
引用时
在别的窗体
form1.xxx 不能是 xxx