Delphi - Variar Calidad de Impresión

Necesito ayuda para variar la calidad en la impresion de documentos (borrador, normal, etc.).
Utilizo impresora HP6122 y el TPrinterSetupDialog me da error cuando intento cambiar la calidad de la impresión.
Gracias anticipadas.

Me he buscado la vida solito y lo he resuelto de esta manera:

procedure TPendientes.BitBtn1Click(Sender: TObject);
var
Device, Driver, Port :Array[0..255] of char;
DeviceHandle :Thandle;
DevMode :PDeviceMode;
begin
Printer.GetPrinter(Device, Driver, Port, DeviceHandle);
if DeviceHandle = 0 then
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, DeviceHandle);
end;
DevMode := GlobalLock(DeviceHandle);
DevMode^.dmFields := DevMode^.dmFields or DM_PRINTQUALITY;
DevMode^.dmPrintQuality := dmres_draft;
Printer.SetPrinter(Device, Driver, Port, DeviceHandle);
GlobalUnlock(DeviceHandle);
end;

Lo pongo por si a alguien le interesa. Se pueden ajustar todos los parámetros de la impresora.

Saludos.