problema son StrToFloat

[[duilioisola]]

Quizás tengas el mismo nombre de variable gobal y de procedimiento y eso te esté confundiendo...
Si utilizas varables globales la recomendación es ponerles un prefijo para no mezclarlas con otras de ámbito más restringido
Por ejemplo "GLB_Precio".

Código Delphi [-]
unit TEST;

var
  Precio : double;

procedure PRUEBA;
var
  Precio : double;
begin
  // Esta variable Precio es la del procedimiento. La global no se modifica.
  Precio := 200;
end;

begin
  Precio := 0;
  Prueba;
  ShowMessage(FloatToStr(Precio);  // <--- Esto imprime 0 porque toma la variable global
end.