Imprimir direto para impressora

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F, 'LPT1');
Rewrite(F);
Writeln(F, 'Teste de impressao - Linha 1');
Writeln(F, 'Teste de impressao - Linha 2');
Writeln(F, #27#18+'Teste de impressao - Linha 3');
Writeln(F, #12); //ejeta a página
CloseFile(F);
end;