Listar Impressoras Instaladas no Windows

{Em uses acrescentar Printers}

var
  i: Integer;
  Printer: TPrinter;
begin
  Printer:=TPrinter.Create;
try
for i := 0 to Printer.Printers. Count - 1 do
begin
      ComboBox1.Items. Add(Printer. Printers. Strings[i] );
      ComboBox1.ItemIndex:=0;
end;
finally
    Printer.free;
end;
end;