Повторяющееся событие в таймере

[kta87]

В таймере дейтвие выпоняется только 1 раз! При повторном нажатии на кнопку выполняется только основная часть кода, таймер не работает! как сделать так что бы процедура работала неоднократно, работала при каждом нажатии на кнопку?

procedure TForm1.Button4Click(Sender: TObject);
begin
 Form1.Timer2.Enabled:= True;
 Num:= 4;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 case Form1.Timer2.Tag of
  0:
    begin
      (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style :=
      (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style + [fsBold];
       Timer2.Tag := 1;
       Exit;
     end;
  1:
    begin
      (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style :=
      (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style - [fsBold];
       Form1.Timer2.Tag := 2;
       Exit;
     end;
  2:
    begin
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style:=
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style + [fsBold];
      Form1.Timer2.Tag:= 3;
      Exit;
    end;
  3:
    begin
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style:=
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style - [fsBold];
      Form1.Timer2.Tag:= 4;
      Exit;
    end;
  4:
    begin
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style:=
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style + [fsBold];
      Form1.Timer2.Enabled:= False;
 case Form1.ComboBox6.ItemIndex of
 0:
  begin
   ShowMessage ('Необходимы значения суточного коэффициента наполняемости МТС');
   Form1.ComboBox6.SetFocus;
   Exit;
  end;
 1:
  begin
   Form1.Enabled:= False;
   Form2.Enabled:= False;
   Form3.Visible:= True;
  end;
 end;
end;
end;
end;

[Marsel737]

...
3:
    begin
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style:=
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style - [fsBold];
      Form1.Timer2.Tag:= 4;
      Exit;
    end;
  4:
    begin
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style:=
     (FindComponent('Button' + IntToStr(Num)) as TButton).Font.Style + [fsBold];
      Form1.Timer2.Enabled:= False;
      Timer2.Tag := 0;
    end;
 case Form1.ComboBox6.ItemIndex of
 0:
...

Добавлено:

Чем делать форму недоступной, может лучше вообще скрыть её?

  begin
    Form1.Hide;
    Form2.Hide;
    Form3.Show; 
  end;

[n971030]

Можно внотри поставить цикл, а потом генерировать событие нажатия допустим кнопки.

[evg_m]

procedure TForm1.Button4Click(Sender: TObject);
begin
 Form1.Timer2.Enabled:= True;
 Num:= 4;
 Form1.Timer2.Tag:=0; ???
// при первом нажатии это и так так выполнено 
// а при втором кто это должен делать
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 case Form1.Timer2.Tag of