оператор перывания

[Altera]

Привет всем! Вот иногда возникает необходимость первать выполнение кода между begin..end и сразу передти на блок после else

procedure TForm1.Button1Click(Sender: TObject);
var
b: boolean;
begin
   b := true;
   if b then
   begin
      b := false;
      {таинственный оператор}
      b := true;
   end;
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
end;

Какой оператор должен я поставить, в указанном месте что-бы отобразилось не первое а второе сообщение? ('b = false')

[Viteef]

procedure TForm1.Button1Click(Sender: TObject);
label 1;
var
b: boolean;
begin
   b := true;
   if b then
   begin
      b := false;
      {таинственный оператор}
      goto 1;
      b := true;
   end;
   1: 
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
end;

.

[BOBAH13]

Сообщение от Viteef

procedure TForm1.Button1Click(Sender: TObject);
label 1;
var
b: boolean;
begin
   b := true;
   if b then
   begin
      b := false;
      {таинственный оператор}
      goto 1;
      b := true;
   end;
   1: 
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
end;

.

Всегда есть выход через If then так что.. конечно из представленного кода

b := false; .... b := true;

ток такое и можно предложить

[s.Creator]

procedure TForm1.Button1Click(Sender: TObject);
label 1;
var
b: boolean;
begin
   b := true;
   if b then
   begin
      b := false;
      {таинственный оператор}
      // goto 1;
      if false then
      begin
         b := true;
      end;
   end;
//   1: 
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
end;

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
label 1;
var
b: boolean;
begin
   try
   b := true;
   if b then
   begin
      b := false;
      Abort;{таинственный оператор}
      // goto 1;
      if false then
      begin
         b := true;
      end;
   end;
   finally
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
   end;
end;

[SunKnight]

рефакторинг рулит

function Fuck:boolean;
var
b: boolean;
begin
   b := true;
   if b then
   begin
      b := false;
      result:=b;
      b := true;
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   if Fuck then showMessage('b = true');
   if not Fuck then showMessage('b = false');
end;

[Altera]

Ясно, спасибо!

[s.Creator]

Сообщение от evg_m

procedure TForm1.Button1Click(Sender: TObject);
label 1;
var
b: boolean;
begin
   try
   b := true;
   if b then
   begin
      b := false;
      Abort;{таинственный оператор}
      // goto 1;
      if false then
      begin
         b := true;
      end;
   end;
   finally
   if b then showMessage('b = true');
   if not b then showMessage('b = false');
   end;
end;

Лучше вместо Abort использовать Exit, если конечно не надо выйти из всех выполняемых методов

procedure TForm1.Button2Click(Sender: TObject);
begin
  //...
  Button1Click(nil);
  //...
end;