1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses printers ;

procedure GetPrinterNames(PrinterNames : TStringList);
var
 i : integer ;
 Prt : TPrinter ;
begin
     PrinterNames.clear ;
     Prt := TPrinter.create ;
     for i := 0 to Prt.Printers.count-1 do PrinterNames.Add (Prt.Printers[i]) ;
     Prt.Free ;
end;