切り捨てはTrunc、切り上げは小数以下の値を判定して、Trunc又はTrunc+1、
四捨五入はRoundを使います。

Var
   f : Single;  //他、Double等
   Sute : Integer;
   Age  : Integer;
   Sisya : Integer;
Begin
   f := 12.456;
   Sute := Trunc(F);        {切り捨て}

   If Frac(F) <> 0 Then     {切り上げ}
      Age := Trunc(F) + 1
   Else
      Age := Trunc(F);

   Sisya := Round(F);       {四捨五入}
End;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。