Zwei TDateTimes vergleichen

[xZise]

Ich habe zwei TDateTimes und einen Timer, der jede 1/1000 Sekunde "ausschlägt".

Nun möchte ich beide vergleichen und überprüfen, ob eine Sekunde vergangen ist.
(Ein TDateTime bleibt erhalten)

Delphi-Quellcode:

procedure TFFreggels.VersinkTimerTimer(Sender: TObject);
var
  i : Byte;
begin
  for i := 0 to High(Diamant) do begin
    if Diamant[i].sink then begin // nicht diese!!
      if Aktuelle Zeit - Andere Zeit = 1 {Sekunde} then //die Zeile!
        //mache das und das
    end;
  end;
end;

Was muss ich jetzt als Bedingung in die 2. If-Bedingung setzen?