calculadora cientifica

[jose.ignacio.ve]

siii sii la uso a la unit math.. pero t explicoo..

Código Delphi [-]
procedure TForm1.rgsClick(Sender: TObject);
var
r:string ;
a:integer;
begin

  case rgs.ItemIndex of
    0: begin
     visor.Caption:=divi_reit(visor.Caption,2);
     bp:=2;
    end;
    1: begin
     visor.Caption:=divi_reit(visor.Caption,8);
     bp:=8;
    end;
    2: begin
        visor.Caption:=divi_reit(visor.Caption,10);
        bp:=10;
    end;
    3:begin
     visor.Caption:=divi_reit(visor.Caption,16);
     bp:=16;
    end;
  end;

mi problema es que de base 10 a otra base sii esta bien m la convierte.. pero cuando quiero ir d otra base a la 10 no la convierte
tengo esta function

Código Delphi [-]
function tform1.su_pond( n:string ; base: integer): string ;
var
  r: single;
  i,s:integer;

begin
  r:=0;
  s:=0;
  for i := 1 to length(n) do
    begin
    r:=power(base,i);
    s:=(strtoint(visor.caption[i])* trunc(r))+s;
    end;
    result:=inttostr(s);
end;

que supuestamente pasa de cualquier base a base 10
que es suma ponderada.. el problem es q no se cuando llamarla.. m podrias ayudar??