PrintSetup

Por favor alguem sabe??!!!!

dou qrpreview1.printsetup;
qrpreview1.print;


ele abre a tela de setup das impressoras e tanto faz se eu der ok ou cancelar ele cai para a linha debaixo eu gostaria de saber como posso fazer para testar se der cancelar o programa nao executar o print.


uso o Delphi 6.0