退出的问题？

Question

我有一个过程：
procedure  tt（xx:integer）;
begin
  if xx=1 then exit;end;在一个事件中调用此过程：
．．．
tt(1);
showmessage('123');
...
为什么我执行这个事件时还会显示１２３呢　　要怎样做才能让他退出呢

Answer 1

procedure  tt（xx:integer）;
begin
  if xx=1 then exit;end;
///////////////////
这里只是退出tt这个过程
function tt(xx:integer):boolean;
begin
  if xx = 1 then
  begin
    result := true;
    exit;
  end;
  result := false;
end;if tt(1) then exit;
showmessage('dd');

Answer 2

procedure  tt（xx:integer）;
begin
  if xx=1 then Abort;end;

Answer 3

procedure  tt（xx:integer）;
begin
  if xx=1 then halt;end;这样就不会显示了！！  ^_^

Answer 4

procedure  tt（xx:integer）;
begin
  if xx=1 then close;end;
//这样还有才怪！