菜鸟的代码（一段）：
var
    result:real;
    op:char;
    first:boolean;

   procedure Addch(ch:char);
   begin
      if first
      then begin
           Form1.EditValue.Text:=ch;
           first:=false;
           end;
           else  Form1.EditValue.Text := Form1.EditValue.Text + ch;  //这里显示出错，可是错在哪里啊？
        Form1.EditExp.Text :=  Form1.EditExp.Text + ch;

请高手指点。

   procedure Addch(ch:char);
   begin
      if first
      then begin
           Form1.EditValue.Text:=ch;
           first:=false;
           end;       //此处多了分号
           else  Form1.EditValue.Text := Form1.EditValue.Text + ch;  //这里显示出错，可是错在哪里啊？
        Form1.EditExp.Text :=  Form1.EditExp.Text + ch;

真是高手，多谢多谢！

学习.

学习！

学习中

else前面不能加分号的！