unit Main_Module;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TMainForm = class(TForm)
    SButton: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    MLabel: TLabel;
    MMemo: TMemo;
    procedure SButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    Flag1, Flag2, Flag3: Boolean;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

//------------------------------------------------------------------------------
procedure TMainForm.Button1Click(Sender: TObject); // Кнопка "Продолжить" счет
begin
     Flag1:=True;
end;
//------------------------------------------------------------------------------
procedure TMainForm.Button2Click(Sender: TObject); // Кнопка "Пропустить" счет
begin
     Flag2:=True;
end;
//------------------------------------------------------------------------------
procedure TMainForm.Button3Click(Sender: TObject); // Кнопка "Остановить" счет
begin
     Flag3:=True;
end;
//------------------------------------------------------------------------------
procedure TMainForm.SButtonClick(Sender: TObject); // Кнопка "Запустить" счет
var
i: Integer;
label
Metka;
begin   MMemo.Lines.Add('Счет запущен');
     while True do
          begin
               for i := 0 to 10 do
                    begin
                         MLabel.Caption := IntToStr(i);
                         Application.ProcessMessages;
                         Sleep(500);
                         if i=5 then
                              begin
                                   MMemo.Lines.Add('Продолжаем цикл? Нажмите одну из Кнопок!');
Metka:                             Application.ProcessMessages; //==============
                                   if Flag1=True then begin
                                        MMemo.Lines.Add('Нажата кн."Продолжить"');
                                        Flag1:=False;
                                        Continue;
                                        end;
                                   if Flag2=True then begin
                                        MMemo.Lines.Add('Нажата кн."Пропустить"');
                                        Flag2:=False;
                                        Break;
                                        end;
                                   if Flag3=True then begin
                                        MMemo.Lines.Add('Нажата кн."Остановить"');
                                        Flag3:=False;
                                        MMemo.Lines.Add('Счет Остановлен!');
                                        Exit;
                                        end;
                                    goto Metka; //==============================
                              end;
                    end;
          end;
end;
//------------------------------------------------------------------------------
end.

function IndexIArray(const str: string; const arr: TArray<string>): Integer;
  var
    I: Integer;
  begin
    for I := Low(arr) to High(arr) do
      if str.ToLower = arr[I].ToLower then
        exit(I);
  end;
//------------------------------------------------------------------------------
procedure TMainForm.AllButtonClick(Sender: TObject);
var
  obj: TButton;
begin
  obj := TButton(Sender);
  if not SButtonEnebled then
  begin
    if obj.Name = 'SButton' then
      SButtonEnebled := true
    else
      MMemo.Lines.Add('Кряя. Надо нажать на SButton');
    exit;
  end;

  case IndexIArray(obj.Name, ['Button1', 'Button2', 'Button3']) of
    0:
      begin
        MMemo.Lines.Add('Нажата кн."Продолжить"');
      end;
    1:
      begin
        MMemo.Lines.Add('Нажата кн."Пропустить"');
      end;
    2:
      begin
        MMemo.Lines.Add('Счет Остановлен!');
      end;
    3:
      begin
        Exit;
      end;
  end;
  SButtonEnebled := False;
end;

if str.ToLower = arr[I].ToLower then
        exit(I);