Fórum arredondamento - não consigo chegar a 100¬ #336496

Preciso colocar a porcentagem de alguns itens em um grid, por exemplo:

item1 R$ 100,00 12,5¬
item2 R$ 250,00 31,25¬
item3 R$ 450,00 56,25¬

total R$ 800,00

apresento qto representa cada valor em ¬ sobre o valor total...

a minha lista tem mais de 60 itens, com valores diversos....

testei 3 formas de arredondamento e em nenhum deles consegui totalizar 100¬

rotinas utilizadas:


1)
function TForm1.Arredondar(value: double; casas: integer): double;
Var fracao:real;
decimal:string;
begin
try
fracao:=Frac(value); //Retorna a parte fracionária de um número
decimal:=(RightStr(floattostr(fracao),length(floattostr(fracao))-2)); //decimal recebe a parte decimal
//enquanto o tamanho da variavel decimal for maior que o número de casas faça
while length(decimal) > casas do
begin
//Verifica se o último digito da variável decimal é maior que 5
if strtoint(RightStr(decimal,1))>5 then
begin
//Descarta o último digito da variável Decimal
decimal:=leftstr(decimal,length(decimal)-1);
//Soma o valor número da variavel decimal + 1
decimal:=floattostr(strtofloat(decimal) + 1);
end
else
decimal:=leftstr(decimal,length(decimal)-1); //Descarta o último digito da variável Decimal
end;
result:=(int(value) + (strtofloat(decimal)/100)); //devolve o resultado para a função
except
Raise Exception.Create(´Erro no arredondamento´);
end;
end;


2)
RoundNExtend(valor,2);

3)
function TForm1.TBRound(Value: Extended; Decimals: integer): Extended;
var
Factor, Fraction: Extended;
begin
Factor := IntPower(10, Decimals);
{ A conversão para string e depois para float evita
erros de arredondamentos indesejáveis. }
Value := StrToFloat(FloatToStr(Value * Factor));
Result := Int(Value);
Fraction := Frac(Value);
if Fraction >= 0.5 then
Result := Result + 1
else if Fraction <= -0.5 then
Result := Result - 1;
Result := Result / Factor;

end;


em todas uso duas casas decimais....

o mais proximo que chego é 99,94¬

alguem tem alguma sugestão ???? ja fiz algumas pesquisas no forum tbem, mas não consegui solucionar este problema....