Uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Printer.Printers.Count>0 then
ShowMessage('Au moins une imprimante est installé')
else
ShowMessage('Aucune imprimante d'installé');
end;