Before and after events

[sdean]

i'm trying to implement a Before and After Event onTime :

how could i do an event before Min Value 'in this case 5 minutes ' ?

Delphi-Quellcode:

Procedure Before(Min:Word);
Var
Tm:TTime;
begin
Min:=5;// 5 Miutes
Tm:=Now;
{
for example :
if before 5 Minutes then 
ShowMessage('5 minutes to go ');
}
end;

how could i do an event after Min Value 'in this case 5 minutes ' ?

Delphi-Quellcode:

Procedure After(Min:Word);
Var
Tm:TTime;
begin
Min:=5;// 5 Miutes
Tm:=Now;

{
for example :
if after 5 Minutes then 
ShowMessage('5 minutes passed');
}
end;