Nur die Zahl hinter dem Komma auswählen

[Martin K]

So sieht die Floor-Funktion in der Unit Math übrigens aus

Delphi-Quellcode:

function Floor(const X: Extended): Integer;
begin
  Result := Integer(Trunc(X));
  if Frac(X) < 0 then
    Dec(Result);
end;