Puedes usar el objeto Tprinter para obtenerlo:
Código Delphi
[-]
procedure TForm1.Button6Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to printer.Printers.Count-1 do
Memo1.Lines.Add(printer.Printers[i])
end;
Necesitarás el
uses Printers;
Currandolo un poco, puedes hacer que el usuario elija la impresora y que permita establecer qué impresora quiere utilizar; por si elimina o añade impresoras y el PrinterIndex cambia.
Un saludo