А если с отображением времени - то
Код:
var fl:byte=0;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3 < 0 then
begin
showmessage ('stop');
fl:=1-fl;
if fl=0 then Min3:=3*60
else Min3:=1*60;
end;
end;
кнопки тут не нужны.
З.Ы. ток с 3го раза понял, что тебе надо. Пожалуйста в следующий раз чуть почётче выражай задание
