[boxep]

Я, понимаю, что все просто..но, что то никак не могу додуматься, как реализовать, чтобы сначала работала 1button, а потом 2button, ну или сначала таймер отсчитывает 3 мин, а потом сразу без остановки 1 минуту и снова 3 минуты, а потом снова одну и так до бесконечности
вот мой код, помогите, что надо исправить, добавить?

var
Form1: TForm1;
var Min3: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
Min3:=3*60;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3 < 0 then
begin
timer1.enabled:=false;
showmessage ('stop');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=true;
Min3:=1*60;
end;

end.