Printing Delphi

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