[AGAG4]

Gracias por la Ayuda, pero lo corregí de la siguiente forma, antes de imprimir cambie el caracter Ñ por el que le corresponde en ASCII:

Código Delphi [-]
function OEMToString(Str:String):String;
var x:integer;
begin
  result:='';
  for x:=1 to length(Str) do
    if Str[x]='Ñ' then
      result:=result+Chr(165)
    else  
    if Str[x]='ñ' then
      result:=result+Chr(164)
    else
      result:=result+Str[x];
end;

Que tenga buen día.