Problema con manejo de ñ al generar archivo txt
 

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:

Código Delphi [-]
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;