Necesito componente que imprima imagenes PNG

[delphi.com.ar]

Pero pegaste mi código tal cual!... tenías que adaptarlo a tu necesidad!.. fíjate que mi código lo que hace es intentar cargar un archivo bmp o png que se llame igual que el ejecutable.

Por lo que entiendo tu necesitas hacer algo como:

Código Delphi [-]
procedure TBuscar_foto.Button2Click(Sender: TObject);
var
  P: TPicture;
  B: TBitmap;
begin
 with Fr_foto do
 begin
    P := TPicture.Create;
    try
      P.LoadFromFile(openpicturedialog1.FileName);
      B := Flatten(P.Graphic);
      try
        qrimage1.Picture.Assign(B);
      finally
         B.free;
      end;
      quickrep1.preview;
    finally
      P.Free;
    end;
  end;
end;

No utilizando los eventos BeforePrint en este caso.

Saludos!