Pessoal, retificando:

Para testar:

   if IsPrinterWinXP<>'' then
    begin
     Mensagem('Verifique a 
'+IsPrinterWinXP,'Aviso...',mb_OK+mb_IconInformation);
    end else
    begin
     Mensagem('Impressora desligada ?'+#13+'Impressora instalada 
?','Aviso...',mb_OK+mb_IconInformation);
     Abort; >>>>>>>> Abort inves de Exit;
    end;



[ ]sss
Henrique 

Responder a