imprimindo textos do memo

[Marostegan 0]

estou com o seguinte problema...

no meu sistema tem um memo que vai armazenando os texto digitados no sistema...

no final do dia tem que ser impresso em um A4 todas essas informações.

 

PROBLEMA: tudo está sendo impresso bem PORÉM não sai a acentuação e nem ç.

 

Gostaria de saber como corrigir isso.

 

 

DETALHE: impressora HP 610C - Saída LPT1

 

PROGRAMAÇÃO UTILIZADA:

 

var

F : TextFile;

i : integer;

begin

ShowMessage('Clique em OK para imprimir!');

AssignFile(F,'LPT1');

Rewrite(F);

i := 0;

Writeln(F, f_autenticar.memo1.text);

Writeln(F,#12);

CloseFile(F);

close;

 

 

E POR ÚLTIMO...

 

Eu preciso também que a impressão saia da cor vermelha

[bdexterholland 0]

Eu preciso também que a impressão saia da cor vermelha

mudando a cor da fonte não resolve?

memo1.font.color:=clred;

[Marostegan 0]

eu consegui fazer a impressão de outra cor....mas...não consigo resolver o problema das acentuação e ç;//