Sustituir Codigo ASCII Fichero texto

[lacovera]

olvidé comentar que lo hago con Lazarus, aunq es pascal..

exactamente pongo esto

f:=TStringList.Create;
try
f.LoadFromFile('d:\hola.txt'); //leemos desde el archivo
for i:=0 to f.Count-1 do
showmessage(f.strings[i]);
f.Strings[i]:=StringReplace(f.Strings[i],'Ñ','N',[rfReplaceAll,rfIgnoreCase]);//reemplazo las "ñ" por "n" linea a linea
f.SaveToFile('d:\hola.txt');
ShowMessage('Se ha modificado..');
finally
f.Free;//Liberamos el objeto f
end;

y el archivo hola.txt contiene esto

4
4sf4ewrfwqerÑ
9sdfñwerÑewr