WithinPastMilliSeconds indicates True if two TDateTime values are within the specified AMilliSeconds number of milliseconds of each other.

WithinPastMilliSeconds is used to determine whether the date specified by ANow is within AMilliSeconds milliseconds of the date specified by AThen.

Declaration: function WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: Int64): Boolean;

A simple example follows.

procedure OnMapEvent(var Value:Variant);
var
TheDate, ThatDate : TDateTime;
begin
//The IF is False as more than 10 milliseconds
TheDate := EncodeDateTime(2023, 11, 30, 13, 25, 15, 650);
ThatDate := EncodeDateTime(2023, 11, 30, 13, 25, 15, 700);
If WithinPastMilliSeconds(ThatDate, TheDate, 10) then
LogInfo('The difference between the two dates is less than 10 milliseconds.')
else
LogInfo('The difference between the two dates is more than 10 milliseconds.');
end;