Como Cambiar Caracter ¥ por Ñ????

[AGAG4]

Tengo el siguiente problema, hice una importación de datos de un sistema en clipper a mi aplicación en windows, usó Firebird 1.52, pero me he percatado que los nombres de los CLIENTES en vez de ponerle la Ñ le pone el signo ¥ al principio tuve problemas con las consultas de los clientes pero lo solucione con la siguiente función:

Código Delphi [-]
function AnSi2Ascii(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
  PText:=StrAlloc(MaxLength);
  StrPCopy(PText,AText);
  {$IFDEF WIN32}
  CharToOEM(PText,PText); {32Bit}
  {$ELSE}
  AnsiToOEM(PText,PText); {16Bit}
  {$ENDIF}
  Result:=StrPas(PText);
  StrDispose(PText);
end;

Pero si quiero hacer una asignación para desaparecer ese caracter no me lo cambia, he realizado un ciclo donde reviso caracter por caracter si me encuentro con el signo raro y no me cambia ese signo por la Ñ, pongo ejemplo:

Código Delphi [-]
..
  for x:=1 to length(val) do
    result:=result+ANSI2ASCII(val[x]);
..

Agradezco cualquier sugerencia.