function TFCaixa.Conversao(xConversao:String):Real;
var
  x: Integer;
  Conversao1: String;
begin
  if Trim(xConversao)='' then xConversao:='0';
  Conversao1:='';
  for x:=1 to Length(xConversao) do
  if (Copy(xConversao,x,1)>='0') and (Copy(xConversao,x,1)<='9') and (Copy(xConversao,x,1)<>'.') or (Copy(xConversao,x,1)=',') or (Copy(xConversao,x,1)='-') then Conversao1:=Conversao1+Copy(xConversao,x,1);
  Conversao:=StrToFloat(Conversao1);
end;