关于Exit如何中途退出Procedure？ ( 积分: 100 )

对于Procedure，如何执行到中途满足一定条件的话，后面就不执行？非常感谢！
报错如下：
[Error] Main.pas(754): Statement expected, but expression of type 'TAction' found

我的代码：
procedure TPosDuty.BtnCalculClick(Sender: TObject);
var
strAlert:String;
begin
strAlert:='Calculer the Table '''+gl_TableName+ ''' ? ';
if Application.Messagebox(PChar(strAlert),'Alert of the System',
mb_YesNo+MB_APPLMODAL+MB_ICONQUESTION+MB_DEFBUTTON2) = IDYES then
Begin
Exit;
end;
.......................
end;

Exit到底应该怎么用呢？即使这样也报相同的错：
procedure TPosDuty.Button13Click(Sender: TObject);
begin
Exit;
end;

非常感谢各位指教！

exit: Exits from the current procedure.
应该是程序其他地方有错

这个语句是肯定没有问题的，报错的是其他地方吧。

Exit 跳出当前的procedure/funtion
Abort 中止，所有的都停了

语句没错

本来一个过程执行完成的时候，会通过ret返回到调用它的地址，而exit跳过之后的所有代码而直接到ret.

[Error] Main.pas(754): Statement expected, but expression of type 'TAction' found



'TAction' 没看到你这段代码有相关的

不好意思，是action里也有叫exit的，所以出问题了，非常感谢各位！！