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....