Cómo detectar si existe alguna impresora definida.

procedure TForm1.Button1Click(Sender: TObject);

var
   Device, Driver, Port : array [0..255] of Char;
   Modo : Integer;
begin
   Printer.GetPrinter(Device,Driver,Port,Modo);
   If Device <> '' then ShowMessage(Device)
   else ShowMessage('Sin definir impresora');
end;