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;