Es muy simple, pon en el "uses" el "Printers", en un ComboBox carga todas la impresora que tienes, después sólo tienes que hacer "Printer.PrinterIndex = ComboBox.ItemIndex y listo.
Para cargar todas las impresora en un ComboBox lo que tienes que hacer es
Código Delphi
[-] ComboBox1.Items.Clear;
ComboBox1.Items.Assign(Printer.Printers);
Seleccionar la impresora por la cual quieres imprimir y cambiar el Printer.PrinterIndex = ComboBox1.ItemIndex.
Un saludo.