Hola
Bueno en esto no soy muy bueno pero tal vez te de alguna idea esto:
Código Delphi
[-]
Var
minutos, hora: TTime;
momento1, momento2: Tdatetime;
begin
momento1 := StrToTime(Edit1.Text);
momento2 := now;
Label2.caption:= TimeToStr(momento2);
minutos:= StrToTime('00:05:00');
hora:= momento1 + minutos;
Edit2.Text:= FormatDateTime('HH:MM:SS', hora);
IF hora = momento1 THEN
showmessage ('Quedan 5 minutos');
end;
Saludos