A nyomtató Printer Setup ablakának előhívása a Printer objektum használatakor

procedure TForm1.Button1Click(Sender: TObject);
var
  h: THandle;
  device, driver, port: array[0..255] of char;
  devmode: THandle;
begin

  Printer.PrinterIndex:=-1;

  Printer.GetPrinter(device, driver, port, devmode);

  if OpenPrinter(@device, h, nil) then begin

    PrinterProperties(Handle, h);
  end;

  ClosePrinter(h);
end;