como hacer un cronometro

[[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