Comparando momentos

[jorgegetafe]

Quiero que cuando falten 5 minutos entre la hora actual y la del label1.caption mostrar un mensaje, pero me da un error de tipos incompatibles en "IF minutos = 5 THEN".



VAR
minutos: int64;
momento1, momento2: Tdatetime;
begin
momento1 := strtodatetime(label1.caption);
momento2 := now;
minutos := minutesBetween(momento1,momento2);
IF minutos = 5 THEN
showmessage ('Quedan 5 minutos');
end;

[Caral]

Hola
Bueno en esto no soy muy bueno pero tal vez te de alguna idea esto:

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