Printing Delphi

Title: How to get the name of the default printer
unit printers;
begin
//...
Printer.PrinterIndex := -1;
DefaultPrnName := Printer.Printers.Strings[Printer.PrinterIndex];
//...
end;