Cuenta regresiva en pantalla

[pape19]

Muchisimas gracias por tu respuesta. Aunque luego de abrir el hilo, seguí probando una solución. Y lo hice con esto.

Código Delphi [-]
procedure TForm2.FormShow(Sender: TObject);
begin
  segundos:=0;
  minutos:=5;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
    If segundos = 0 then
      begin
        If minutos = 0 then
          showmessage('Tiempo Terminado')
        else
          segundos:= 59;
          minutos:= minutos - 1;
      End
    else
      segundos := segundos - 1;
    FloatEdit2.text:=IntToStr(Segundos);
    FloatEdit1.text:=IntToStr(Minutos);
end;