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