Problema de tImage en Qreport

[Paoti]

ahhh ojala se solcune, aqui uso un stream, par tu valdria el de loadformfile.

agrega la unidad jpeg a uses, para que te carge jpg.

creo que el detalle es en el evento before print

Código Delphi [-]
procedure TFrmRep.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
  var bs : TStream; jp : TJpegImage; buff: Word;
  begin
// alinear la descripcion
QRDes.Top := DetailBand1.Height - 180;

  bs := FrmCapturaDocumentos.QDocumentos.CreateBlobStream(QDocumentosImagen,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
  bs.Seek(0, soFromBeginning);
  case buff of
  $4D42: qmyImg.Picture.Bitmap.LoadFromStream(bs);
  $0000: qmyImg.Picture.Icon.LoadFromStream(bs);
  $0001,$CDD7: qmyImg.Picture.Metafile.LoadFromStream(bs);
  $D8FF: begin
  jp := TJpegImage.Create;
  jp.LoadFromStream(bs);
  qmyImg.Picture.Assign(jp);
  FreeAndNil(jp);
  end
  else qmyImg.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;