[AGAG4]

Muchas Gracias Al Gonzalez y MarcosZorrilla...

Las funciones que me comenta Al Gonzalez son Libres????

Lo solucione de la siguiente forma:

Código Delphi [-]
function LimpiaCharANSI(val:String):String;
var x:integer;
begin
  result:='';
  for x:=1 to length(val) do
    if (IntToStr(ord(val[x])) = '165') or ((IntToStr(ord(val[x])) = '209')) then
      result:=result+'Ñ'
    else
      result:=result+val[x];
end;

Que tengan Buen Día....