在程序中如何等待一个打印任务结束？（见详细内容）

Question

检测打印缓冲池中打印任务数 ,任务为0则进行下一个任务。（先自己建立个缓冲池。） 
（这一段我没能成功运行。不知为什么。请其它大侠指正。）我在 button的 click 事件中无法运行，另也不理解TForm1.WM_SpoolerStatus如何具体使用。请帮忙
具体代码：
type 
TForm1 = class(TForm) 
Label1: TLabel; 
private 
{ Private declarations } 
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS); 
message WM_SPOOLERSTATUS; 
public 
{ Public declarations } 
end; var 
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS); 
begin 
Lable1.Caption := IntToStr(msg.JobsLeft) + 
' Jobs currenly in spooler'; 
msg.Result := 0; 
end;