Ono by mnělo stačit nastavít timer na 1000, což je jedna vteřina, ne?

A jak zajistíš, aby timer začal přesně s nulovymi ms?
Proč teda jednoduše neotestuješ, jestli není aktuální čas v rozsahu 10:16:00 - 10:16:00.999 ?

begin
   time1 := time;
   time2 := StrToTime('10:16:00');
   time3 := StrToTime('10:16:00.999');
   Label1.Caption:= TimeToStr(time1);
   Label2.Caption:= TimeToStr(time2);
   If (time1 => time2) and (time1 <= time3) Then  ShowMessage('shoda');
end;

Na oriznuti muzes pouzit napr. funkce DecodeTime / EncodeTime