请问怎么样跳出过程

Question

我有个过程
里面有段代码
procedure Txinxixiugai.SpeedButton2Click(Sender: TObject);
begin
if a<>1 then
  begin
  ...
  end;
edit1.text:='1';
end;
我想请问，我怎么样在a不等于1的时候跳出整个SpeedButton2Click过程，而不用执行edit1.text:='1';
因为实际编程中语句很长，这里举个例子，麻烦哪位高手知道下，跳出进程的命令，不是光跳出循环哦。exit是不是只能跳出循环？

Answer 1

exit ： Exits from the current procedure  跳出当前过程break ,continue:跳出循环

Answer 2

if a<>1 then exit;

Answer 3

呵呵，很多方法，你将Edit1.txt:=1放在
a=1这样的条件中
或者Exit等都可。建议看看语法

Answer 4

procedure Txinxixiugai.SpeedButton2Click(Sender: TObject); 
begin 
if a <>1 then 
  begin 
  ...
  exit;//新增这句 
  end; 
edit1.text:='1' ;//这句不要了.
end;