来看看我这缎代码有什么不对的吗？

前面声明了共有变量
private
    n: Integer;
    str: string;
    procedure fun(s:string);
下面是一个过程  按钮控件都调用这个过程
procedure TForm1.fun(s: string);
begin
case str of
'+' : begin
n:=n+strtoint(label1.Caption);
str:=s;
label1.Caption:=inttostr(n);
end
'-' : begin
n:=n-strtoint(label1.Caption);
str:=s;
label1.Caption:=inttostr(n);
end
'*'  : begin
n:=n*strtoint(label1.Caption);
str:=s;
label1.Caption:=inttostr(n);
end
'/': begin
n:=n/strtoint(label1.Caption);
str:=s;
label1.Caption:=inttostr(n);
end
else
str:=s;
 end;
end;