Как повторить процедуру кнопки

Question

Я разработал две процедуры из двух кнопок для задачи 1 и задачи 2. Знаете ли вы, как создать новую кнопку, которая может повторять процедуры двух предыдущих кнопок для выполнения задачи 1 + 2 в назначенное количество раз?

Answer 1

Extract задачи в отдельные методы:

procedure TForm1.DoTask1; 
begin 
    .... 
end; 

procedure TForm1.DoTask2; 
begin 
    .... 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    DoTask1; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    DoTask2; 
end; 

А затем добавить новую кнопку с OnClick обработчиком, как это:

procedure TForm1.Button3Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    for i := 1 to N do 
    begin 
    DoTask1; 
    DoTask2; 
    end; 
end;