Kod:
uses Printers; function GetDefaultPrinterName : string; begin GetDefaultPrinterName := Printer.Printers[ Printer.PrinterIndex ]; end;