Zdravím
Jsem už v tom dlouho nedělal tak bych rad poprosil o pomoc.
Potřebují podminku IF, ktera i když bude splněna třeba 100 x za minutu, aby se vykonala jen jednou za 5 minut.
Jak na to?

var
a,b: integer;
MyTime,MyTime1: TDateTime;
begin
if (a = b) and (MyTime1 < MyTime)  then
                                      begin
                                        MyTime1 := MyTime + StrToTime('00:05:00');
                                        beep;
                                      end;
end;

Myslim že existuje přimo nějaka funkce na porovnavaní času, ale nemohu najit.