Jak przerwać procedurę ?

Jak w pewnym momencie przerwać procedurę tzn majać np coś takiego :

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=strtoint(edit4.Text);
<font color="red"> //TU PRZERWAĆ GDY a=1</span>
b:=a+555;
end;

[glowa] [pomocy]

if a=1 then Exit;