Out of Memory

[ecfisa]

Hola.

Te sugiero subir otras imágenes las actuales son muy pequeñas y no se puede apreciar el texto.

Por otro lado, el error quizá se produzca cuando muestras la imágen en el evento OnDrawColumCell, ya que cada vez que se ejecuta crea una instancia de la clase TMemoryStream ( Stream ) y no la estas liberando.

Intenta de este modo:

Código Delphi [-]
procedure TPresupuestoDatoForm.ListaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  ...
    if ( Column.FieldName = 'Imagen' ) then
    begin
      Stream := TMemoryStream.Create;
      try
        TGraphicField(Dm.DetalleADOQuery.FieldByName('Imagen')).SaveToStream(Stream);
        ...
        ...
      finally
        Stream.Free;
      end;
    end;
  ...
end;

Saludos