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]