Extracción de parte entera de un flotante

[Albano]

Hola a todos, tengan un buen día, Dios les bendiga.
Estuve tratando de extraer la parte entera de un numero flotante y no encontré la manera, creí que iba a encontrar una función que lo hiciera y buscando en el foro me encontré el siguiente hilo: Conversion de tipos, donde veo que uno de los foristas escribe lo siguiente:

Pascal hace muchas veces la conversión automática de tipos, pero no en el caso de un número de coma floatante a un entero.

Lo que entendí con esa oración es que delphi no tiene una función que extraiga la parte entera de un numero flotante, me equivoco?
Por si acaso me di a la tarea de realizar esta función, aqui la tienen, por si es de utilidad para alguien:

Código Delphi [-]
function floaent(aux: float): integer; stdcall;
var
  aux1, aux2: string;
  i: integer;
begin
  i := 1;
  aux1 := floattostr(aux);
  aux2 := '';
  while (aux1[i] <> '.') and (i <= length(aux1)) do
  begin
    aux2 := aux2 + aux1[i];
    inc(i);
  end;
  floaent := strtoint(aux2);
end;

Esta fución recibe un numero flotante y regresa la parte entera del mismo.