function RoundFloat(var Value, RoundToNearest: Double):DOUBLE;
var
  int_val, int_rnd, remainder: Integer;
begin
  int_val := Round(Value *  100 . 00 );
  int_rnd := Round(RoundToNearest *  100 . 00 );
  if int_rnd =  0  then begin
    result :=  0 ;
    exit;
  end;
  remainder := int_val mod int_rnd;
  if (remainder >  0 ) then begin
    if (int_rnd div remainder >  2 ) then // round down
      result := int_val - remainder
    else                                // round up
      result := int_val + (int_rnd - remainder);
    // Now divide the result by  100  to get the proper result.
    result := result /  100 ;
  end else
    result := Value;
end;