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