1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function Round(Number: Real): Real;
var FindC: Byte;
    NumAsStr: String;
begin
 FindC := pos(',',FloatToStr(Number));

 if FindC = 0 then
  Result := Number
   else
    begin
     NumAsStr := Copy(FloatToStr(Number),FindC,Length(FloatToStr(Number))-FindC+1);
      If StrToFloat(NumAsStr) >= 0.5 then
       begin
        NumAsStr := FloatToStr(Number);
        Delete(NumAsStr,FindC+1,Length(FloatToStr((Number)-FindC)));
        Result := StrToFloat(NumAsStr)+1;
       end else
        Result := RoundTo(Number,0);
      end;
end;                    

1:
2:
3:
4:
5:
6:
7:

function RountByFive(valve:real):integer;
var help:integer;
begin
result:=trunc(valve);
help:=trunc(frac(valve)*10));
if help>4 then inc(Result);
end;                    

1:
2:
3:
4:

asm
    FADD    [OneHalf]
    FRNDINT
end;