[delphi.com.ar]

No me refería al valor por defecto, sino que al llamar la función la llames:

Código Delphi [-]
qrimage1.Picture.Assign(Flatten(P.Graphic, clYellow));

Por otro lado, si quieres tener una imagen de fondo, podría ser algo así

Código Delphi [-]
procedure TBuscar_foto.Button2Click(Sender: TObject);
var
  imgBack: TBitmap;
  imgLogo: TPNGObject;
begin
  with Fr_foto do
  begin
    imgBack := TBitmap.Create;
    try
      { Podes cargarlos de un archivo, de recursos, copiarlo de algo previamente cargado }
      imgBack.LoadFromFile('....fondo.bmp');

      imgLogo := TPNGObject.Create;
      try
        imgLogo.LoadFromFile(openpicturedialog1.FileName);
        { en la posición que desees ponerlo }
        imgBack.Canvas.Draw(10, 10, imgLogo);

        qrimage1.Picture.Assign(imgBack);
        quickrep1.preview;
      finally
        imgLogo.Free;
      end;
    finally
      imgBack.Free;
    end;
   end;
end;