Zwei TDateTimes vergleichen

[xZise]

Hmmm....

Das ist dann aber äußerst dumm

So... Und nun mein 2. Problem: Ich habe einen Timer (Interval = 20 ms) und überprüfe immer dann (OnTimer) ob eine Sekunde vergangen ist! Nun kann es natürlich sein, dass er als Intervall 1001 hat! Gibt es dann eine Funktion, die einen Bestimmten bereich abdeckt?
Also z.B. von 988 bis 1012 ? Oder muss ich
if (Differenz > 988) and (Differenz < 1012) then... nehmen?

Edit: Achso... Ich habe jetzt statt SecBetween MillisekBetween
Aber es geht trotzdem noch nicht

Delphi-Quellcode:

procedure TFFreggels.VersinkTimerTimer(Sender: TObject);
var
  Status, i, Diff : Integer;
begin
  for i := 0 to High(Diamant) do begin
    [...]
      case Diamant[i].status of
          0: Status := 1000;
          1: Status := 1750;
          2: Status := 2400;
          3: Status := 2900;
      end;
      Diff := MillisecondsBetween(Diamant[i].startTime, Time);
      if (Diff > Status - 12) and (Diff < Status + 12) then begin
        [...] // das hier wird NICHT ausgeführt
      end;
    end;
  end;
end;