Грубо!!! И что теперь 60 секунд ничего сделать с формой нельзя?
Вриант такой:

Ставишь TTimer
Timer.Interval:=1000;
Timer.Enabled:=True;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(tim-time);
if (tim-time<0) then
begin
Timer1.Enabled:=False;
showmessage('sdf');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Tim:=Time+StrToTime('00:01:01');
Timer1.Enabled:=True;
end;