[steelha]

Muchas gracias duilioisola, copie el codigo que me mandaste y aun asi me daba el mismo error. Cambie el Graphic por bitmap y funciono. dejo código por si lo necesitan.

Código Delphi [-]
procedure TfrmPacientes.cargar_imagen;
Var
  bmp: TBitmap; Stream: TStream;
  bs      : TMemoryStream;
begin
  with DM.QryPacientes do
  begin
     Stream := dm.QryPacientes.CreateBlobStream(dm.QryPacientes.FieldByName('pxfoto'), bmWrite);
     try
        imgfoto.Picture.Bitmap.SaveToStream(Stream);
     finally
        Stream.Free;
     end;
  end;
end;

Código Delphi [-]
procedure TfrmPacientes.mostrar_imagen;
var
  Stream: TStream;
begin
  Stream := dm.QryPacientes.CreateBlobStream(dm.QryPacientes.FieldByName('pxfoto'), bmRead);
  try
     try
        Stream.Seek(0, soFromBeginning);
        imgfoto.Picture.Bitmap.LoadFromStream(Stream);
     except
       // Si falla limpio la foto para que no quede la anterior
       imgfoto.Picture := nil;
     end;
  finally
     Stream.Free;
  end;
end;