Imprimir em impressora matricial em modo caracter

Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,'LPT1');
Rewrite(Arquivo);
Writeln(Arquivo,'------------------------------');
Writeln(Arquivo,' Empresa Tec Plus ');
Writeln(Arquivo,'------------------------------');
Writeln(Arquivo,'item Produto Valor ');
Writeln(Arquivo,'0001 Pão 0,25 ');
Writeln(Arquivo,'------------------------------');
Writeln(Arquivo,#12); // Ejeta a página
CloseFile(Arquivo);
end;