Problema con manejo de ñ al generar archivo txt

[Mechita]

Buenos Dias..

Necesito generar un archivo txt desde mi aplicación, que reconozca y deje intactas las ñ. Logre hacerlo gracias a algo que encontré en otro hilo, pero ahora me da un error de Access Violation (abre el archivo y lo muestra y ya ha arrojado el error) y no logro ver la causa del mismo. Si pueden ayudarme, lo agradezco enormemente. Les adjunto mi código:


procedure TFLph.GenerarTxt(Mes:String; Empresa:Integer);
var
NombreArch,LineaM :String;
Linea1:String;
Linea2:PChar;
begin
NombreArch:='N'+trim(banavih + copy(setdate(quincena.date),5,2)+copy(setdate(quincena.date),1,4)+'.txt.txt');
NombreArch:=StringReplace(NombreArch, ' ', '', [rfReplaceAll]);
assignfile(Archivo,rutaNomina +'\' + NombreArch);
rewrite(Archivo);

with fquerylocate do
begin
sql.clear;
sql.add('Exec uSp_XXX :Mes,:Empresa');
parambyname('mes').asString:=Mes;
parambyname('empresa').asInteger:=Empresa;
open;
while not eof do
begin
Linea1:=fieldbyname('Linea').asString;
OemToChar(PChar(linea1),PChar(linea2));
writeln(Archivo,linea2);

next;
end;
closefile(Archivo);
assignfile(Archivo,rutaNomina +'\' + NombreArch);
end;
abrirtxt(pchar(rutaNomina +'\' + NombreArch));
end;