[ecfisa]

Código Delphi [-]
  with TfrmQRShow.Create(nil) do
  try
    QuickRep1.Width := Width;
    QRPreview1.Align:= alClient;
    QRPreview1.ZoomToWidth;
    ShowModal;
  finally
    Free;
  end;