关于检测打印机一段代码

Question

有如下一段代码：function hasprinter:boolean;
begin
  if printer.printers.Count:=0 then
    result:=false
  else
    result:=true;
end;{检测打印机}
procedure TForm2.SpeedButton13Click(Sender: TObject);
begin
  if not hasprinter then
  begin
    showmessage('没有检测到打印机，请先添加打印机!'); 
    exit;
  end;
end;
end;
提示错误：[Error] Unit1.pas(128): Undeclared identifier: 'printer'
怎么解决，在线等，谢谢!