Impressao errada

Ola pessoal, estou jogando um texto para um richedit e salvando em txt.
Configurei a fonte do richedit para courier new.
No txt fica blz, mas na impressao sai tudo errado.
Alguem pode me informar o q estou fazendo de errado ?

RETexto.Lines.SaveToFile(SysInf.WinTempPath + ´\´ + RemoveCaracter(datetostr(now), ´/´) + ´.txt´);
try
Arquivo.LoadFromFile(SysInf.WinTempPath + ´\´ + RemoveCaracter(datetostr(now), ´/´) + ´.txt´);
AssignPrn(Relatorio);
ReWrite(Relatorio);
nReg := Arquivo.Count - 1;
for n := 0 to nReg do
WriteLn(Relatorio, Arquivo.Strings[n]);

CloseFile(Relatorio);
except
Arquivo.Free;
CloseFile(Relatorio);
end;