Fórum Problema com cronômetro regressivo quando uma form é ativada #370429

Estou com um pequeno problema na minha aplicação. Quando o cronômetro regressivo zera, o programa abre automaticamente outra form secundária e esconde a form principal. Quando a form secundária fecha, a form principal volta a aperecer. Até aí tudo beleza. O problema é que quando a form princpal reaparece o cronômetro continua parado. Quero que o cronômetro volte a funcionar apartir do momento em que a form principal apareça novamente, e fique parado enquanto a form secundária esteja ativa (enquanto esta form está ativa, o timer fica parado).

Parte do código

-------------------

procedure TForm1.Timer1Timer(Sender: TObject);
begin
maxtime := (maxtime- strtotime(´00:00:01´));
label1.Caption := timetostr(maxtime);
if TimeToStr(maxtime) = ´00:00:00´ then //se o cronometro zerar
begin
timer1.Enabled := false; //o timer fica desabilitado
Form2.Visible:= true; // a form secundária aparece
Form1.Visible:= false; //e a form ´principal some
if Form2.Visible= true then //se a form secundária estiver visivel o timer fica desabilidado
timer1.Enabled := false;

if Form1.Visible= true then begin //se o form principal estiver visivel ele volta a contar apartir da escolha feita anteriormente na combobox {aqui está o problema. quando a form secundária fecha e a form principal volta, o cronômetro fica estagnado no ´00:00:00´, parado}

timer1.Enabled := true;
cont:=0;
Label2.Caption:= ´0´;
case combobox1.itemindex of
0: maxtime := strtotime(´00:01:00´);
1: maxtime := strtotime(´00:02:00´);
2: maxtime := strtotime(´00:03:00´);
end;
end;
-----------------------
-----------------------
código da Form Secundária
-----------
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if form1.visible = false and form2.Visible = true then begin
maxtime2 := (maxtime2 - strtotime(´00:00:01´));
label2.Caption := timetostr(maxtime2);
if TimeToStr(maxtime2) = ´00:00:00´ then begin
timer1.Enabled := false;
form2.Close;
form1.visible:=true;
end;
end;

end;



procedure TForm2.FormCreate(Sender: TObject);
begin
maskedit1.text:=´00:00:30´;
maxtime2:= strtotime(maskedit1.text);
timer1.Enabled := true;
label2.Caption := timetostr(maxtime2);
end;

end.
----------------------------------

De antemão, agradeço qualquer ajuda!!! :)