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!