菜鸟的代码（一段）：
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;

请高手指点。

真是高手，多谢多谢！