一个进度条的效果
sgauge.Progress:=sgauge.Progress+1; // 时间控件，每秒滚动条加1这个在time控件中调用没问题，现在是 我在time控件中 调用了一个 过程，过程为procedure proIntegral(Bean:integer);
begin
sgauge.Progress:=sgauge.Progress+bean；////////////////////////这行报错//////////////////////////
end；
报错提示
[Error] bean.pas(144): Undeclared identifier: 'Progress'sgauge控件在过程中不能控制progress属性，但在过程之外就没问题。请教
sgauge.Progress:=sgauge.Progress+1; // 时间控件，每秒滚动条加1这个在time控件中调用没问题，现在是 我在time控件中 调用了一个 过程，过程为procedure proIntegral(Bean:integer);
begin
sgauge.Progress:=sgauge.Progress+bean；////////////////////////这行报错//////////////////////////
end；
报错提示
[Error] bean.pas(144): Undeclared identifier: 'Progress'sgauge控件在过程中不能控制progress属性，但在过程之外就没问题。请教
procedure Tfrm.proName;