Imprimir no Delphi Com no Dos

:lol: Eu estou fazendo uns relatorio que imprimir direto para impressora
Exemplo
Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressao - Linha 0´);
Writeln(Arquivo,´Teste de impressao - Linha 1´);
Writeln(Arquivo,#2715+´Teste de Impressão - Linha 2´);
Writeln(Arquivo,´Teste de impressao - Linha 3´);
Writeln(Arquivo,2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo,´Teste de impressao - Linha 5´);
Writeln(Arquivo,12); // Ejeta a página
CloseFile(Arquivo);
end;


[b:699283dba2]
Como eu faço para mudar a cor e tamanho da fonte e modelo de fonte no caso de eu precisar de imprimir em impressora jato de tinta[/b:699283dba2]