Function Floor

uses Unit Math

A função floor retorna um menor número inteiro mais próximo ao número passado ao parâmetro.

Sintaxe da sua utilização:

Floor(Valor);

Ex:

procedure TForm1.Button16Click(Sender: TObject);begin
       label1.Caption:= IntToStr(Floor(3.5)); //Retorna o valor inteiro mais próximo
end;