[[duilioisola]]

Yo lo que te recomiendo es tener siempre disponible el valor en formato Float.
Luego lo utilizas en el label y en el calculo partiendo de el.

Código Delphi [-]
unit UEjemplo

interfase

uses ...

type 
  TFMEjemplo = class(TForm)
    [...]
  private
    Total : double;
    [...]
  end;

    [...]

procedure TFMEjemplo.Create();
begin
  Total := 0;
end;

procedure TFMEjemplo.CalculaTotal;
begin
  Total := ObtenerTotal();
end;

procedure TFMEjemplo.MuestraTotal;
begin
  sub_t.Text:= FloatToStrF( Total , ffNumber, 8, 2 );
end;

function TFMEjemplo.DevuelveDobleDeTotal : double;
begin
  Result := Total * 2;
end;