[Nuria]

Por si a alguien le interesa, la solución es la siguiente:

var 
   Device, Driver, Port : array [0..255] of Char;
   Modo : Cardinal;
begin
  Printer.GetPrinter(Device,Driver,Port,Modo);
  If Device <> '' then ShowMessage(Device)
  else ShowMessage('Sin definir impresora');
end;

Donde en la variable device sólo tendremos el nombre de la impresora que ha seleccionado.

Saludos!