Delphi: Testa se Impressora Ativa

Testando se a impressora matricial está ativa.

Impressão direto na porta de impressora.

Var TesteImpressora:TextFile;
Begin
try
// Teste da Impressora
AssignFile(TesteImpressora, 'LPT1:');
Rewrite(TesteImpressora);
Write(TesteImpressora,' '); // Mandando alguma coisa para a impressora
CloseFile(TesteImpressora);
.
.
.
//Continuando o programa normalmente.

except
CloseFile(TesteImpressora);
MessageDlg('Impressora inativa', mtError,[mbOK],1);
end
End;