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