[dec]

Hola,

Yo haría algo más o menos esto:

Código Delphi [-]
function QuitarSimboloPeso(cadena: string) : string;
var
  i: integer;
begin
  for i := 1 to Length(cadena) do
    if (cadena[i] in ['0'..'9', '.']) then
      Result := Result + cadena[i];
end;

Se admiten sugerencias para mejorarlo.