Fórum Passar string em Código ASCII para impressora #218102

Como faço para imprimir caracteres acentuados diretamente para a impressora?
Estou fazendo o seguinte:

var impressora : TextFile;
begin
AssignFile(Impressora, ´LPT1:´);
Rewrite(Impressora);
Write(Impressora);
WriteLn(Impressora, ´café´); //aqui não sai caractere com acento
WriteLn(Impressora, [#162 + ´rfão´]); // aqui saí o ´ó´ acentuado
WriteLn(Impressora, ´´);
System.Close(Impressora);
Se eu mando o código ASCII do caractere funciona, mas seu mandar texto não, será que tem alguma função que converte todo o texto para o código ASCII?