Impressão De Memo

[Diabloline]

Estou com a seguinte dificuldade quando coloco o programa para imprimir determinado memo, a font não fica da maneira que quero somente de um tipo.

Uso o seguinte metodo de impressão.

procedure TFrmRelat.Imprimir1Click(Sender: TObject);

Var

MemoFile :TextFile;

P :Integer;

Begin

AssignPrn(MemoFile);

Rewrite(MemoFile);

For P := 0 to Relatorio.Lines.Count-1 do

Writeln(MemoFile,Relatorio.Lines[P]);

CloseFile(MemoFile);

end;

gostaria de saber como fazer para o memofile receber a font do relatorio, ou seja passar a font e as caracteristicas em tempo de execução.

[Diabloline]

Acho que estou necessitando de uma ajuda profissional.

Valeu Galera