como hacer un cronometro

[[Lepe]]

Si vas a realizar una agenda, recordatorio o algo parecido, busca en el foro por "recordatorio" y encontrarás solución.

Además te recomiendo que utilices fechas y horas si tiene que avisarte en días distintos, una solución rápida es:

Código Delphi [-]
var FechaAviso, FechaHoy :TDatetime;
begin
  // recuerda "uses DateUtils"
  FechaHoy := now;
  FechaAviso := DateTimePicker1.Date;
  Timer1.Interval := MilliSecondsBetween(FechaAviso, FechaHoy);
  Timer1.Active := true;
end;

Saludos

[[Delphius]]

¿MilliSecondsBetween?

A esa no me la presentaron... la desconocía totalmente.
Algo nuevo para aprender.

Empezado por Lepe

Además te recomiendo que utilices fechas y horas si tiene que avisarte en días distintos

Es verdad... pasé por alto esa posibilidad. Creo que mi ejemplo fue demasiado simple.

Saludos,

[[Caral]]

Hola
Este es el ejemplito sencillo:
Colocas un edit, un timer y un boton:
Pones la opcion de enable a false en el timer:
En el evento on click del boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:= StrToInt(Edit1.Text);
  Timer1.Enabled:= True;
end;

El que define el tiempo es el edit, asi puedes cambiarlo cuando quieras.
En el evento del timer: OnTimer, pones:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   MessageBox(Handle,
             PChar('Ya se cumplio el tiempo'),
             PChar('mensaje'),
             MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL);
   Timer1.Enabled:= False;
end;

Con esto se muestra el mensaje y se desactiva el timer hasta que se coloque otro tiempo y se presione el boton.
Con esto y lo expuesto por los maestros podras hacer lo que necesitas.
Saludos