Imprimir direto para impressora com acentos e ç...

Qnd mando imprimir direto para impressora naum estaum aparecendo os acentos e nem a ç como eu faço para imprimir....

ex:

procedure TForm1.Button1Click(Sender:TObject);
var
Arquivo:TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressão - Linha 0´);
Writeln(Arquivo,´Endereço - Linha 1´);
Writeln(Arquivo,´País - Linha 3´);
Writeln(Arquivo,´Correção - Linha 5´);
Writeln(Arquivo,#12);
CloseFile(Arquivo);
end;