Function Int

use Unit System

A função Int retorna a parte inteira de uma número real, desprezando os números decimais.

Sintaxe da sua utilização:

Int(Valor);

Ex:

procedure TForm1.BitBtn8Click(Sender: TObject);var Vl : Real;begin
        VL:=Int(13.44);
        label7.Caption:=FloatToStr(Vl);end;