MOD und EXTENDED arbeiten nicht zusammen, alternative?

[moritz]

Delphi-Quellcode:

function ExtendedMod(Value: Extended; Divisor: Integer):Extended;
begin
  Result := Value;
  while Result >= Divisor do
    Result := Result - Divisor;
end;

Sollte so eigentlich stimmen.
[Edit]Waaah Nein.... Okay, das war's ned![Edit]

Edit 2:
Vielleicht so....

Delphi-Quellcode:

function ExtendedMod(Value: Extended; Divisor: Integer):Extended;
begin
  Result := (Value / Divisor) - Floor(Value / Divisor);
end;